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Introduction 


Cet ouvrage appartient à l’une des collections de micro-infor- 
matique ayant remporté le plus de succès. En 1982, lorsque 
le premier ouvrage «Activités avec le micro» fut publié, peu 
d'éditeurs pensaient que l'utilisateur courant d’un micro vou- 
lait vraiment comprendre sa machine, et apprendre à program- 
mer... en programmant. La plupart des livres étaient remplis 
de jeux et de programmes d’une affligeante banalité, quand ce 
n'était pas l’inévitable « Vos premiers pas avec... ». L'idée d’un 
livre présentant un catalogue de programmes sérieux et uti- 
les tout en dévoilant les méthodes utilisées en programmation 
«sérieuse», n'était pas encore au goût du jour. 


Mais, tout comme mon éditeur, j'étais convaincu que les livres 
«Activités avec le micro» répondaient vraiment à l'aspiration 
des possesseurs de micros, toujours plus nombreux. Et nous 
avions raison. 


Depuis lors, nos livres ont accompagné les micro-ordinateurs 
dans pratiquement tous les pays. Leurs traductions, passées ou 
présentes, couvrent 14 langues différentes. 


Et voici qu'apparaît une machine ambitieuse : l’Amstrad 
CPC 464 avec une nouvelle et brillante version de BASIC, 
une mémoire plus que suffisante pour pratiquement toutes les 
applications, et des fonctions sans égales à prix équivalent. Le 
464 et le concept des livres « Activités avec le micro» sont par- 
faitement complémentaires, comme vous allez pouvoir l'appré- 
cier dans les chapitres suivants. 


Comment utiliser cet ouvrage 


Vous pouvez utiliser ce livre de différentes façons : 


1) Comme un répertoire de programmes utiles que vous pou- 
vez adapter et développer pour répondre à vos propres besoins. 


2) Comme un répertoire de sous-programmes pouvant servir 
de fondation à vos propres programmes. 


3) Comme une introduction à la programmation avec le BASIC 
du CPC 464. 


4 introduction 


Nous tenons à souligner qu'il s’agit d’un livre et non d'un 
simple catalogue de programmes en vrac. Fréquemment, nos 
lecteurs ont des difficultés parce qu'ils sont passés directe- 
ment aux programmes plus complexes placés en fin d'ouvrage, 
sans préparation suffisante. Les premiers programmes du livre, 
parallèlement à leur utilité et intérêt propre, jouent un rôle 
pédagogique progressif. Ces premiers programmes sont accom- 
pagnés d'explications beaucoup plus détaillées, de sorte qu'en 
arrivant aux derniers programmes plus complexes, vous aurez 
bien assimilé les différentes techniques. 


QUELQUES PRECISIONS 


Commandes concernant la couleur 


Tous les programmes du livre ont été écrits et testés sur un 
Amstrad standard, avec un moniteur couleur. Les lecteurs dis- 
posant d’un moniteur noir et blanc devront parfois adapter cer- 
taines commandes liées à la couleur. 


Mémoire auxiliaire 


Le stockage sur mémoire auxiliaire fait appel au lecteur de cas- 
settes incorporé (Datacorder). Si vous faites l'acquisition d'une 
unité de disques compatible, vous pourrez sans difficulté modi- 
fier les commandes d'ouverture et de fermeture en consé- 
quence. 


Signe exponentiel 


Le symbole ‘ qui apparaît dans les programmes est le signe 
exponentiel. 
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Commencer un livre de ce type n'est jamais simple. Un pro- 
gramme trop complexe, et voilà le lecteur perdu avant d’avoir 
pu se raccrocher à quelques repères simples qui faciliteront 
la compréhension des programmes suivants. Par contre, si les 
premiers programmes sont trop faciles, le lecteur risque de 
s'arrêter avant d'atteindre les programmes suivants, plus inté- 
ressants. 


J'ai donc adopté pour ce premier chapitre, un jeu de quatre pro- 
grammes qui traitent de l'heure, et des différentes façons dont 
le CPC 464 peut traiter ce problème. Bien que très simples, ces 
programmes présentent de nombreux concepts que nous utili- 
serons ultérieurement dans des programmes plus complexes. 
De plus, par l'usage qu'ils font du calcul, du son, et du gra- 
phisme, ces programmes constituent une excellente initiation 
aux remarquables attributs de base de votre CPC 464. 


Dans ce chapitre, nous verrons les programmes suivants : 
HEURCLASSIQUE : Une horloge classique en haute résolution. 
HEURFANTAISIE : Une autre façon d'indiquer l'heure. 


COMPTEUR : 16 compteurs pouvant fonctionner simultané- 
ment en déclenchant une alarme et en affichant un message 
de rappel. 


EVENEMENT : Transforme votre CPC 464 en un chronomètre 
perfectionné (.. et plutôt cher). 
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PROGRAMME 1.1 : 
HEURCLASSIQUE 


Fonction du programme 


Ce programme reproduit un cadran d'horloge sur l'écran, avec 
des aiguilles en mouvement. S'agissant du premier programme, 
nous vous recommandons de lire avec grande attention les 
commentaires explicatifs ; vous y apprendrez beaucoup de cho- 
ses sur les techniques employées dans cet ouvrage. 


st "+ 
MES 


+ 


7 j Note : L'apparence 
f N légèrement ovale du 
? ù cadran est due à la 
’ \ recopie d'écran. Soyez 
6 ne rassuré, le cadran 
7: KES affiché sera 
Fe A parfaitement rond sur 

rl votre écran. 


Figure 1.1 : Recopie d'écran de Heurclassique 


Ce programme va permettre de couvrir les points suivants : 


1) Sauvegarde de programmes en cours de développement. 
2) Initialisation du programme. 

3) Modules de contrôle. 

4) Synchronisation avec la commande EVERY. 

5) Programmation modulaire. 

6) Le module de contrôle. 

7) Les notions mathématiques simples liées à un cercle. 
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Module 1.1.1 : Sauvegarde du 
programme 


Ces trois lignes au début peuvent paraître curieuses, mais ceux 
qui ont déjà utilisé des livres «Activités» pour des machines 
précédentes, savent tout l'intérêt de ce petit module, et tous les 
soucis qu'il peut vous épargner pendant le développement 
de programmes. 


Trop souvent, c'est la cruelle réalité qui nous apprend qu'il 
faut sauvegarder les programmes de façon régulière, au fur et à 
mesure de leur développement. Tôt ou tard, des heures de tra- 
vail sont anéanties par une saute de courant, un fusible grillé, 
un choc donné au micro, ou un pied qui débranche une prise. 
En pareil cas, l'utilisateur expérimenté ne perdra jamais plus 
de 15 minutes de travail, tout simplement parce qu'il n’aura 
pas attendu plus longtemps pour sauvegarder les lignes du pro- 
gramme qu'il vient d'écrire. 


Les trois lignes de ce module vous incitent à sauvegarder régu- 
lièrement le programme en cours de création en tapant simple- 
ment GOTO 2. Un autre petit détail vous fera gagner du temps : 
un tel module, placé au début de tous vos programmes, donne 
une ligne de départ standard, c'est-à-dire ‘1’. I est souvent bon 
de commencer un programme avec GOTO, si vous avez défini 
des variables que vous souhaitez effacer avec RUN. Grâce à ce 
module, vous n'avez pas à déterminer le numéro de la première 
ligne, car vous pouvez toujours commencer avec GOTO 1. 


Ce module précédait tous les programmes du livre lors de 
leur développement, mais, comme seul le nom du programme 
change, nous n'avons pas jugé utile de l'inclure dans les pro- 
grammes suivants. 


MODULE 1.1.1 : LIGNES 1-3 





1 GOTO 3 
2 SAVE «heurclassique» : STOP 


3 REM 


Test 
Vérifiez que le lecteur contient une cassette. Entrez 
GOTO 2{[ENTER] 
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Mettez le lecteur en route en suivant les indications. Après 
un bref instant, BREAK IN 2 doit s'afficher. Vous pouvez alors 
supprimer les trois lignes en mémoire et recharger le pro- 
gramme à partir de la cassette en la rebobinant et en entrant 


NEWIENTER] (efface le programme actuel) 
LOAD « HEURCLASSIQUE » [ENTER] 


Après le chargement du programme, listez-le. Le module doit 
se retrouver en place. 


Module 1.1.2 : Initialisation du 
programme 


Tout programme digne de ce nom utilise des variables et des 
constantes, c'est-à-dire des étiquettes (parfois appelées label), 
dont les valeurs peuvent changer pendant le déroulement du 
programme ou, à tout le moins, d'un programme à un autre. 
Grâce aux variables, vous pouvez écrire des lignes de pro- 
gramme adaptées à plusieurs situations. Ainsi, vous pouvez 
utiliser PRINT 2%A, indépendamment de la valeur de A. Très 
peu de variables doivent absolument avoir une valeur déclarée 
lors de la première exécution (RUN) du programme. Il est fré- 
quent qu'une valeur de variable ne soit définie qu'en cours 
de programme, lorsqu'elle est indispensable. En général, il est 
conseillé de déclarer en tout début de programme la valeur des 
variables principales, lors de «l'initialisation ». 


Toutefois, si la mémoire est limitée, il peut être judicieux 
d'omettre des variables dont la valeur n'est pas importante 
au lancement initial du programme. Dans ce programme, à 
l'exception des valeurs représentant les couleurs à utiliser, 
toutes les variables importantes sont fournies par l'utilisateur 
lorsqu'il est invité à spécifier l'heure. De telles variables, sans 
intérêt au lancement du programme, sont souvent ignorées 
(non déclarées) dans le module d'initialisation. 


Dans notre cas particulier, le module a pour objet de définir 
les paramètres d'affichage graphique éventuels et de mettre la 
machine en mode ’DEGré’, qui est adapté aux calculs portant 
sur des heures. 


MODULE 1.1.2 : LIGNES 2000-2110 





@:nGa RENM HEFTELXHELIKAEEXX & 
£cain REM #Initialisationx 
Zaza FREM #HEXÆKKXKEEREEELREX e 


2434 MOCE 1 
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et INK & 
2854 INK 1 
£G6û IHK 2,3 

Ozù7a INK 3.6 
zaga BORDER 1 

O2û58 ORIGIN 244,208 
2180 DEG 

@2118 RETURN 


® ® » © 





Test 


Pour un premier test non approfondi du module, vous pouvez 
entrer : 


GOTO 2000 


Si le module a été entré correctement, l'écran s'efface et 
le message suivant apparaît : 'Unexpected RETURN in 2110 
(RETURN inattendu en 2110). Vous ne pourrez tester de façon 
approfondie le fonctionnement du module qu'après avoir entré 
les modules suivants. 


Module 1.1.3 : Introduction de 
l'heure 


Avant de créer une horloge, nous devons bien entendu donner 
l'heure. Ce module permet à l'utilisateur de donner l'heure et 
les minutes, et de les stocker dans la mémoire du 464 sous la 
forme de deux variables : HEURE et MINUTE. 


MODULE 1.1.3 : LIGNES 3000-3080 


O:549Q RENM HKÉKXLEKKEEEMEEREXELERERERX 
Sa14 FEM #Introduction de l’heure* 
@ 22 REM HÉHÉLRREEREEERELELERENNHX 
3934 PRIHT "Mise à l'heure :":PRINT 
e 24€ INPUT "Heure 61-125 :";heure 
S4S5Q IF heure<i OR heure>1Z THEN PRINT ‘ 





## Hors limites : essayer À nouveau #%#": 


Sora 2n4% 

SG INPUT "Minute Q-599 :"iminute 
3674 IF minute{@ OR minute>SS THEN FRINT 

"£fHors limites : essauer À nouveau *##": 
OGOTO 3466 

34S8û RETURN 


(. 
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Test 
Entrez 


GOTO 3000{[ENTER] 


Le système vous demande l'heure, en heures et minutes. Les 
valeurs fournies doivent être correctes, sous peine d'obtenir un 
message d'erreur. Dès qu'une heure est acceptée, le programme 
s'arrête et affiche un message d'erreur ’Unexpected RETURN 
(RETURN inattendu). Rien d’anormal à cela : après l'entrée du 
module final, ce module deviendra un sous-programme, appelé 
par un GOSUB. 


Pour pousser plus loin la vérification, vous pouvez taper : 
PRINT heure, minute[ENTER] 


qui doit afficher les valeurs des heures et minutes que vous 
avez entrées. 


Module 1.1.4 : Création du cadran 
de l'horloge 


Après avoir entré l'heure, nous allons tracer le cadran de 
l'horloge, sur lequel les modules suivants placeront les aiguil- 
les. 


MODULE 1.1.4 : LIGNES 4000-4090 


AA REM HEHAEKEFERAEXEXEREREX 
ania RENM %XCadran de l'horlosex 

e 4220 REM EKXKAKEAKEELEREEEEENX 
4834 CLS 

e +249 FOR a=9 TO 359 STEP 6 





4QSQ MOVE 2GG#SINC a ); 209*C0S{ a ) 
4@68 r=195:IF a MOD 34=Q THEN r=185 
6 407û DRAU rXSINC a 2, rXCOSC a à. 1 
qag@ NEXT a 
@ 4830 RETURN 


Commentaire 
Définition d’un cercle 


La méthode employée dans ce module repose sur le fait qu'il 
est possible de déterminer tout point sur la circonférence d'un 
cercle, à partir des données suivantes : 
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a) Le rayon du cercle. (RADIUS) 

b) L'angle à parcourir vers la droite à partir de la position trois 
heures, pour atteindre le point spécifié. (ANGLE) 

c) Les coordonnées du centre du cercle. (CENTRE X et 
CENTRE YŸ) 


A partir de ces trois éléments, deux formules permettent 
d'exprimer la position : 


coordonnée X = RADIUS%XCOSINE(ANGLE)+CENTRE X 
coordonnée Y = RADIUS%XSINE(ANGLE)+CENTRE Y 


Il n'est pas dans notre propos d'approfondir ce domaine, mais 
tout bon manuel d'introduction à la trigonométrie vous don- 
nera tous les détails à ce sujet. Dans notre cas particulier, les 
formules sont même plus simples, car, dans le module d'initia- 
lisation, nous avons déplacé l'origine (ORIGIN) graphique de 
l'écran sur la position 200,200. Autrement dit, toute référence 
à la position 0,0 sur l'écran apparaîtra, à partir de l'angle infé- 
rieur gauche de l'écran, sur la position 200 vers le haut et 
200 vers la droite (position d'un pixel) *. Donc, comme nous 
avons déplacé l'origine graphique sur la position correspon- 
dant au centre du cadran, il n’est plus utile de faire référence 
aux coordonnées X et Y du centre du cadran. Toutes deux sont 
égales à zéro. Les formules donnant la position d’un point 
donné sur la circonférence du cercle deviennent à présent : 


coordonnée X = RADIUS%XCOSINE(ANGLE) 
coordonnée Y = RADIUS%XSINE(ANGLE) 


C'est exactement cela que nous utiliserons dans ce module. 


Lignes 4040-4080 : Cette boucle nous fait parcourir les 
360 degrés d'un cercle, par sauts de six degrés. Comme il y a 
60 minutes dans une heure et que 360/60 = 6, vous devinez 
que la boucle a un lien direct avec la représentation des minu- 
tes sur le cadran, tracées avec les lignes suivantes. 


Ligne 4050 : Le curseur graphique est déplacé (MOVE) sur un 
point de la circonférence du cercle, en utilisant les formules 
précédentes. La première position, la variable A de la boucle 
étant à zéro, sera au sommet du cercle. Les positions suivan- 
tes progresseront sur le cercle vers la droite, par incréments de 
six degrés. 


Lignes 4060-4070 : Ensuite, une ligne est tracée à partir des 
positions de la circonférence du cercle, vers le centre. En fait, 


(1) pixel : contraction de «picture element» = élément de des- 
sin. 
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les lignes sont tracées entre les circonférences de deux cer- 
cles de tailles différentes. Le cercle extérieur a un rayon de 
200 pixels (points). La taille du cercle intérieur varie selon que 
l'angle indiqué par la variable À de la boucle, pointe sur cinq 
minutes pleines (30 degrés) ou non. Si l’angle ne pointe pas 
sur cinq minutes pleines, le cercle intérieur n’est que de cinq 
pixels à l’intérieur du cercle d'origine : la marque tracée n'aura 
que cinq pixels de long. 


Grâce à la fonction MOD, le programme reconnaît lorsque un 
angle de 30 degrés. Par exemple, 5 MOD 2 donne le résultat 1, 
soit le reste de la division de 5 par 2. ‘Un MOD 30 comme dans 
le programme, donne le reste obtenu lorsque la variable A de la 
boucle est divisée par 30; si le reste est zéro, l'angle est exacte- 
ment divisible par 30. Dans ce cas, le cercle intérieur est plus 
petit ou, si vous préférez, la marque tracée est plus longue, ce 
qui met en évidence les graduations de cinq minutes. 


Test 


Entrez 
GOTO 4000[ENTER] 


L'écran doit s’effacer, puis afficher un cadran d'horloge. Le 
programme se termine par un message d'erreur ‘'Unexpected 
RETURN’ (RETURN inattendu). 


Module 1.1.5 : Réglage des minutes 
et des heures 


Ce module nous amène à l'essentiel du programme : le calcul 
de l'heure actuelle et, à partir de là, des coordonnées corres- 
pondant aux aiguilles de l'horloge. Toutefois, pour une utilisa- 
tion correcte, ce module doit attendre que le dernier module ait 
été entré. Ce n’est qu'alors qu'il sera appelé à intervalles cor- 
rects, c’est-à-dire une fois par minute. 


MODULE 1.1.5 : LIGNES 5000-5130 


SA REM #XEXXXXKELXARETEEAEEEX 
SARA REM #Réalage de l’heure*t 

e 5028 REM #XKEKAXEEEREREERERKX 
Sa3A c=A 

e Eh anale=minute*#é:taille=15f4:GOSUB 694 







SAS anglesheurek=äiminute-£:taille=124: 
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SGOSUE Saga Le 
9468 minutezminute+i 
OS674 IF minute=69 THEH minute=f:heureshe @ 
ure+i 
e:45% IF heure=1iS THEN heurez] ET 
SAS czE 
198 andlezminute*é:taille=184:GOSUE 6AA 
L.. à e 
[. 
@ 


SIA c=3 

e Sirt anale=heurekSf+minute-2:taillesi2à: 
GOSUE 6aGñ 

65124 RETURH 





Commentaire 


Ce module est en fait divisé en trois sections distinctes. La pre- 
mière section a pour tâche d'appeler un module suivant qui 
efface les aiguilles sur leur position déjà existante. La deu- 
xième section ajoute 1 à MINUTE et modifie HEURE en consé- 
quence. La troisième section prend les nouvelles valeurs 
heure/minute et appelle un module suivant qui retrace les 
aiguilles. 


Lignes 5030-5050 : Le module suivant utilisera la variable C 
pour définir la couleur de l'encre lorsque les aiguilles seront 
tracées. Elle est d’abord définie avec la valeur 0. En revenant 
au module d'initialisation, vous observerez que la couleur 0, 
la couleur de ford, a été définie en bleu. La ligne 5040 défi- 
nit les paramètres de l'aiguille des minutes, soit son angle et sa 
taille. La valeur des minutes n'ayant pas changé, le fait de tra- 
cer l'aiguille dans la couleur de fond aura pour résultat d’'effa- 
cer l'aiguille existante. La ligne 5050 fait de même pour 
l'aiguille des heures. 


Lignes 5060-5080 : Les valeurs des minutes et des heures sont 
mises à jour. Pour cela, 1 est ajouté aux minutes et certains 
ajustements permettent de s'assurer que les valeurs résultan- 
tes sont réalistes. 


Lignes 5090-5120 : Les paramètres des aiguilles des minutes 
et des heures sont redéfinis avec les valeurs mises à jour, avant 
que le module suivant soit appelé pour les retracer. Le numéro 
de couleur C prend la valeur 2 pour l'aiguille des minutes, et 3 
pour l'aiguille des heures. En revenant au module d'initialisa- 
tion, vous pouvez observer que ces valeurs correspondent res- 
pectivement au rouge et au rouge vif. 
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Test 
Tapez : 
6000 RETURNIENTER] 


Il s'agit d'une ligne temporaire qui tient compte du fait que le 
module que vous venez d'entrer en appelle un qui n'existe 
pas encore. 


A présent, tapez : 


HEURE=O[ENTER] 
MINUTE=SO{ENTER] 
GOTO 5000[ENTER] 


L'exécution doit s'arrêter presque instantanément, avec un 
message d'erreur ‘Unexpected RETURN’ (RETOUR inattendu). 
Tapez ensuite : 


PRINT minute,heure 
Vous devriez obtenir : 


0 1 
indiquant que vos 59 minutes d'origine sont passées à 60 et 
que la valeur de l'heure a augmenté en conséquence. 


Module 1.1.6 : Tracé des aiguilles 


Après avoir fait les calculs nécessaires pour obtenir la position 
des aiguilles, nous pouvons passer à leur traçage proprement 
dit. 


Module 1.1.6 : Lignes 6000-6110 





Qt REM HEEEEELEREEREEELETEES & 
614 REM #Tracé dez aiquilles*t 
ER REM KEXHELÉEREEE EEE EEE & 


GAS taillez=taillett/ 

e 2248 FLOT 9:9,c e 
USA DRAU taille#SINCangle-5Sr,tailleztC 
[Sr angle-8 ) 

O Ea6a DRAU taillekSIN(angle):taille*kCns a @ 
nale ? 

GEB7à DRAU tailleZtSINC angle+S),tailleZ#kC @ 
üSC ana le+£ ? 

ec284 DRAM 6,4 e 
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SAGE MUVE tailleZ#SIN anale), taille *Cc0s 
e <anale e 
6144 GOSLUE 7aax 


LES 


6118 FETURH 
e e 





Commentaires 


Ligne 6030 : Les aiguilles se présentent sous la forme d’un 
losange quelque peu étiré. SIZE2 représente la distance à par- 
tir du centre, de l'endroit où l'aiguille commence à se rétrécir 
vers le point. 


Ligne 6040 : Le curseur graphique est déplacé au centre du 
cadran et la couleur C est définie pour le tracé, de sorte que le 
module précédent commande la couleur de tout tracé à venir. 


Lignes 6050-6080 : Ces lignes tracent sur l'écran quatre lignes 
qui définissent l'aiguille. La première ligne a une longueur de 
SIZE2 et est tracée avec un angle de huit degrés vers la gauche, 
vers l'angle correct pour les heures ou les minutes. La ligne 
suivante est tracée de la fin de la première ligne vers une posi- 
tion située à l'angle correct et à SIZE pixels du centre. La troi- 
sième ligne est tracée vers une position de SIZE2 pixels à par- 
tir du centre, et à huit degrés vers la droite en direction de 
l'angle correct. Pour finir, une ligne tracée vers le centre ter- 
mine le dessin. 

Lignes 6090-6100 : Ces deux lignes sont nécessaires au 
module suivant, qui colorie les formes vides tracées par ce 
module. La ligne active est la ligne 6090 : elle déplace le cur- 
seur graphique sur un point clairement situé à l'intérieur de 
l'aiguille qui a été tracée. 


Test 


D'abord, il faut ajouter une ligne temporaire représentant le 
module suivant : 


7000 RETURN 
Puis tapez : 
CLEAR :CLS :DEG :GOTO 5000[ENTER] 


L'écran s'efface et les deux aiguilles de l'horloge représentent 
à peu près douze heures et une minute. Les aiguilles sont sim- 
plement tracées; c'est le module suivant qui les remplira 
de couleurs. 
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Module 1.1.7 : Remplissage avec 
des couleurs 


Par rapport à d’autres ordinateurs personnels, le 464 présente 
une lacune : l'absence d’une commande permettant de remplir 
une forme donnée avec une couleur. Le module qui suit est 
bien plus lent qu'une commande intégrée et présente quelques 
limites ; néanmoins, il donne le résultat souhaité. 


La routine de ce module peut remplir tout polygone dont les 
angles sont concaves, vus de l'extérieur; autrement dit, les 
angles pointent vers l'extérieur et non vers l'intérieur. Elle 
peut remplir certaines formes ayant des angles pointant vers 
l’intérieur, mais pas toutes. Pour utiliser cette routine sur des 
formes aussi irrégulières, vous devrez remplir successivement 
plusieurs sections. En particulier, si vous utilisez cette routine 
sur une forme non fermée, elle recherchera les bords de la 
figure à l'extérieur de l'écran. 


MODULE 1.1.7 : LIGNES 7000-7300 


RENM ÆKAEELARÉEREXXE 
REM #kemPlissage* 
FREM XÆXÆKXKEAEKEXEEE 
IF TESTR“G,@2zc THEH RETURH 


MOVE ZXINTEKXPOS/E 1, ZXINT(YPOS-2 





REM HAEEKEEAMAMRETERALEREERE 
RENM XRechérche haut-droite* 
PASS REM XÉHKEEELEKELXÉELRELEREXEX 
IF TESTRCH, sc THEH GOTO 7494 
IF TESTRESs, -sié>c THEN GOTO 74934 


RENM ÆXKEEEKEXÉEEEEEEEÉLEEELEEEX 

FEN #Fecherche haut-aauche*# 

RENM ÆHÉHEXELELÉEEEEEELELEEELT 

MOVE -5.84 

IF TESTR(Y, sc THEN GOTO 7494 
IF TESTRS-23,-53<2c THEH GOTO F5 





REM HEKELEKKEKEKEREEEEAREE 
ei: RENM *Coloriane des lignes* 
7195 REM KKXKKAXEMELEEELELETEXX 


® ® D ® ® D 2 2 2% 9% © 9 
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7294 x1=XPUS 
721@ MOYER s,0 
7224 PLOTR @;@,c 
OFE5û IF TESTRIS.0<>c THEN GOTO 7228 
7244 x2=XPOS-S 
@72Sû MOVE x1, YPOS-S 
7268 IF TESTRCS,@<>c THEH GOTO 7294 
e727à IF XFÜS=XZ THEN RETURN 
7284 GOTO 72684 
e 723% IF TESTR(-s,@)=c THEN GOTO 7209 
7304 GOTO 7238 


D» 2 D ® 9 9 


a 





Commentaires 


Ligne 7030 : Comme la plupart des autres routines de «colo- 
riage» ou de «remplissage», cette routine ne fonctionnera pas 
si la couleur du pixel où elle doit démarrer est déjà attribuée à 
la routine pour le remplissage. 


Ligne 7040 : La variable S représente le déplacement horizon- 
tal minimum utilisé en cours de programme. Sa valeur peut 
être modifiée si d’autres modes graphiques sont utilisés. 


Ligne 7050 : En mode graphique 1, utilisé pour ce programme, 
les pixels sont groupés par paires. Cette ligne garantit que, quel 
que soit le sort des coordonnées de tracé, elles représentent des 
nombres pairs. 


Lignes 7080-7100 : Le programme recherche désormais une 
partie de la bordure de la figure. Au premier abord, ces lignes 
peuvent surprendre, car aucun mouvement n'est apparent, et 
il semble n'y avoir qu'une ligne dans une boucle sans fin. En 
fait, TEST et TESTR(elative) déplacent le curseur graphique sur 
la position spécifiée. Donc la première ligne recherche vers le 
haut, en ligne droite, le premier pixel de couleur correcte. Dès 
qu'une partie de la bordure a été trouvée, la ligne suivante fait 
un pas vers le bas et vers la droite, pour voir si ce point est 
vacant. S'il est vacant, la première ligne est rappelée pour voir 
s'il est possible d'aller plus haut. 


Lignes 7130-7160 : Après avoir recherché au maximum vers le 
haut et vers la droite, ces lignes commencent à explorer vers 
la gauche, recherchant une façon de poursuivre vers le haut. 
A la fin de ces lignes et du groupe précédent, le programme a 
atteint soit le sommet de la figure, soit une impasse parce que 
la figure n'est pas régulière. 
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Lignes 7200-7230 : Lorsque le point le plus haut a été trouvé, 
le «remplissage» peut vraiment commencer. Les commandes 
MOVER(elative) et PLOTR(elative) permettent de tracer une 
ligne de pixels de gauche à droite jusqu'à ce qu’une autre par- 
tie de la bordure soit atteinte. 


Lignes 7240-7250 : Au terme d'une ligne horizontale, la 
variable X2 reçoit une valeur égale à la position la plus à droite 
remplie, et le curseur revient au début de la ligne, mais un 
pixel plus bas. 


Lignes 7260-7280 : Ce test a lieu lorsque le curseur est ramené 
vers la gauche. Si le pixel ainsi atteint présente déjà la couleur 
de remplissage, le programme explore de gauche à droite à la 
recherche du premier pixel vierge. Si la recherche s'étend au- 
delà de la fin de la ligne précédente, qui vient d'être remplie, 
le bas de la figure a été atteint. 


Lignes 7290-7300 : Si, pendant le déplacement du curseur vers 
le bas et vers la gauche pour commencer une nouvelle ligne, le 
pixel atteint est vierge, le programme cherche vers la gauche 
pour atteindre la bordure de la figure, avant de commencer 
le remplissage. 


Test 


Pour tester ce module, la méthode la plus simple consiste à 
suivre la procédure de test du module précédent. Toutefois, le 
résultat sera différent; en effet, les deux aiguilles sont à pré- 
sent remplies avec la couleur correcte. 


Module 1.1.8 : Regroupement 


A ce stade, peut-être vous posez-vous quelques questions sur la 
méthode d'écriture du programme. Pourquoi ne pas avoir ras- 
semblé toutes les fonctions que nous avons décrites et les avoir 
mises en oeuvre avec quelques instructions GOTO? Hélas, de 
nombreux programmes du commerce sont construits de la 
sorte. 


Dans ce livre, vous constaterez que tous les programmes sont 
constitués de modules clairement identifiables. La raison en 
est que ces programmes sont plus faciles à lire, à mettre au 
point et à modifier en remplaçant des modules si vous appre- 
nez de nouvelles méthodes, et qu'ils peuvent recevoir de nou- 
veaux modules. Ces programmes peuvent vous apprendre beau- 
coup, mais la leçon la plus importante sera la technique de pro- 
grammation modulaire. 
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Le module actuel est la clé de voûte de l'ensemble car, lors- 
que tous les autres modules ont été entrés et testés, il en faut 
un pour contrôler le tout. En fait, le module que vous êtes sur 
le point d'entrer peut être considéré comme le programme pro- 
prement dit, tout le reste n’en étant qu'une extension. 


MODULE 1.1.8 : LIGNES 1000-1100 


RENM XKXAEEREERKÉ 
RENM Controle 
24 REM #XXEXXEEEX 
GUSUR 2499 
GOSUB 565% 
GOSUB 4ugG 





GOSUB San 
A EVERY S904 GOSUB S98a 
IF INKEY$<:" " THEN 1488 
CLS 
EMD 


Commentaires 


Ligne 1070 : La clé du programme. Cette seule ligne donne la 
synchronisation du programme, en utilisant la puissante com- 
mande EVERY du 464. Cette commande permet à l'utilisateur 
de spécifier une durée, puis, lorsque cette durée est écoulée, 
d'interrompre toute tâche en cours d'exécution pour passer à 
autre chose. Lorsque l'interruption est terminée, la tâche ori- 
ginale, quelle qu'elle soit, recommence jusqu'à l'interruption 
suivante. La période après laquelle l'interruption a lieu est 
découpée en 50èmes de seconde; cette ligne demande donc au 
464 d'appeler le module de la ligne 5000, une fois par 
minute, ce qui augmente la valeur des minutes et retrace 
les aiguilles. 


Lignes 1080-1100 : Le reste du temps, le programme est pri- 
sonnier de la boucle sans fin représentée par la ligne 1080, 
attendant que l'utilisateur actionne la barre d’'espacement. 
Alors, l'écran s'efface et le programme se termine. 


Test 


À présent, le programme doit être entièrement opération- 
nel. Lancez-le, entrez l'heure, et le cadran doit s'afficher avec 
les aiguilles dans la bonne position. Vous pouvez vérifier plus 
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rapidement le bon fonctionnement de l'affichage en suppri- 
mant deux zéros de la valeur 3000 à la ligne 1070. Les aïiguil- 
les seront alors tracées et retracées en permanence. 


PROGRAMME 1-2 : 
HEURFANTAISIE 


Fonction du programme 


L'un des aspects les plus séduisants des ordinateurs avec affi- 
chage graphique comme le CPC 464 est qu'ils vous permettent 
d'afficher, en toute fantaisie, des informations de façon nou- 
velle en laissant libre cours à votre imagination. A partir d'une 
horloge standard, le programme suivant donne une vue très 
différente de l'heure. Ici, nous allons représenter les heures et 
les minutes par deux lignes qui s'étendent de gauche à droite 
et de haut en bas, divisant l'écran en quatre rectangles de cou- 
leurs différentes. Une bonne partie de Heurfantaisie est identi- 
que à Heurclassique, aussi les explications seront-elles rédui- 
tes. 


Ce programme couvre les nouveaux points suivants : 


1) Fenêtres 
2) Formatage des nombres 
3) Découpage de chaînes 


Module 1.2.1 : Initialisation 


Ce simple module d'initialisation permet de définir les cou- 
leurs nécessaires à l'affichage. Le rôle de la fenêtre définie à la 
ligne 2100 sera expliqué dans les commentaires d'un module 
ultérieur. 


MODULE 1.2.1 : LIGNES 2000-2120 





O iûûn REM HKEEEEEEEEEEEEEE e 
2414 REM #Initialisationt 

e 2028 REM KKKELEREEEEEEEEX e 
239 MOCE 1 
24 IHE @,1 

OEgsn INK 1,24 e 
GER INK 2,9 

OS gra INK 3,6 e 
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G EURDER 1 

A PAPER G:FEM 1 e 
2140 WINCOW #1.59.39,9,18 

@2118 FAFER #1.G:FEN #1,1 e 
2124 RETURN 





Test 


Comme avec le premier programme, le seul test possible à ce 
stade consiste à taper : 


GOTO 2000[ENTER] 


Le programme doit se terminer par un message d'erreur 
"Unexpected RETURN’ (RETURN inattendu). Tout autre type 
d'erreur signalera une erreur pendant l'entrée du module. 


Module 1.2.2 : Entrée de l'heure 
Module identique à celui de Heurclassique. 

MODULE 1.2.2 : LIGNES 3000-3090 
O@ 3A6A RENM HLELEEEEEEERERERELEAEEEEX 


O6 

3814 REM XIntroduction de l'heure* 

@ 2 REM ÆREEEELALEL ER EEE ELEEERINX æ 
e 
e 







SAS FRINT "Mise à l'heure: ":PRINT 
e° + INPUT "Heure C1-125:"iheure 
IF heurei1 OF heure:12 THEH FRINT " 
. Hors limites: essauer à nouveau #£E#" 
: GOT 344 
3464 INPUT "Minute 4-59: "minute 
O ra IF minute: Of minute:53 THEH PRINT @ 
"XXX Hors limites: essauer À nouveau *#* 
@et":GOTO 3464 e 
2ASA seconde=f 
e 34934 RETURH e 





Module 1.2. 3 : Définition de la 
bordure de l'écran 


Ce module affiche une grille d'heures et de minutes sur la bor- 
dure supérieure gauche de l'écran. 
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MODULE 1.2.3 : LIGNES 4000-4120 


GAGAG REM HKLEEKEL EEE EEE LEE REIN ANREK e 
4Aifñ REM XMise en Place affichagex 
e +28 REM XÉÉEFRELEKEXEREEENXEEEMEEELEX 8 
4A3a CLS: PRINT" ; 
ee“: FOR izS TO 55 STEF 14 e 
445 PAPER G:FEN 1:FRIHT USING"H###";i: 
dfsà PAPER 1:FEN G:PRINT LSING'###";i+5; 
OA4g7g NEXT i e 
e 
e 
& 













4430 PAPER G:PEN 1 
644258 FOR i=1 TO 12 

4100 LOCATE 1,1#2+1:PRINT USING"##";i 
e“+i1ia HEXT i 

4124 RETURN 





Commentaires 


Lignes 4040-4070 : La boucle affiche les valeurs des minutes 
sur la bordure supérieure de l'écran, en faisant alternebr les let- 
tres normales et inverses (couleurs du papier et de la plume 
permutées). PRINT USING permet d'assurer que chaque chif- 
fre de cinq minutes est affiché avec trois caractères; comme 
tous les nombres ont moins de trois caractères de long, PRINT 
USING les complète avec un ou deux espaces à gauche. 


Lignes 4080-4110 : La variable I de la boucle, conjointement à 
la commande LOCATE, permet d'afficher les heures sur la bor- 
dure gauche de l'écran. 


Test 


Pour bien tester le module, vous devez insérer une ligne tem- 
poraire : 


4115 GOTO 4115 


Cela empêche l'écran de défiler vers le haut avec un message 
"Unexpected RETURN’ (RETURN inattendu). 


Ensuite entrez : 
GOTO 4000[ENTER] 


et la grille s'affiche à la périphérie de l'écran. Lorsque l'affi- 
chage vous convient, appuyez deux fois sur ESCAPE. Et 
n'oubliez pas de supprimer la ligne temporaire. 
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Module 1.2.4 : Création d'une 
chaîne d'heure 


L'une des fonctions du programme consiste à afficher l'heure 
de façon numérique (digitale) directe, ainsi que par la méthode 
plus originale décrite précédemment. La chaîne est basée sur 
des variables créées par le module suivant, mais vous devez 
entrer celui-ci en premier lieu, pour permettre l'exécution cor- 
recte du modèle suivant. 


MODULE 1.2.4 : LIGNES 7000-7050 


| OPA REM ÆXLELEAXERERERAEEEERAEEERX 
7618 REM #Creation chaine d'heure 
O7026 REM HKAXXAKKEEAKAIOEEXNENEENEREEX 
7034 timb=5TRS$ 109400 A+heurer1A@+minut 
e ek160G+seconde 
744Q tLimb=MIDStimSé,3,25+" "4+MIDSC timé, 5 
84" "4MID$ tin$, ”,2: 
7459 RETURH 












e 
e 
e 
e 


Commentaires 


Lignes 7030-7040 : Une méthode astucieuse pour combiner 
une suite de nombres en un seul nombre, consiste à multiplier 
chaque nombre par des puissances décroissantes de 10 puis 
de les additionner avec une puissance de 10 supérieure. Si par 
exemple HEURE = 1, MINUTE = 36 et SECONDE = 2, le résul- 
tat de cette ligne serait 1013602. Pourquoi ? Observez le chif- 
fre des heures : le 1000000 qui a été ajouté a placé un 0 
devant le seul ’1’ de la valeur de l'heure, et devant le ’2’ 
des secondes. 


Nous utilisons ensuite un ‘découpage de chaîne’ pour découper 
le nombre en trois sections de deux chiffres, sachant qu'un 0 
à gauche a été ajouté si l’une des valeurs d'origine ne comp- 
tait qu’un chiffre. Les fonctions de chaîne de la deuxième ligne 
extraient les trois figures en spécifiant la position de départ 
dans le nombre créé, et le nombre de caractères à extraire. 
Ainsi, MID$(A$,3,2) signifie la partie de A$ qui comprend 
deux caractères commençant au caractère 5. 


Si vous examinez les commandes de découpage de chaîne de 
la ligne 7040, vous serez surpris du fait que la valeur des heu- 
res est prise à partir du caractère 3, alors qu'elle part certai- 
nement du chiffre 2 du nombre artificiel créé à la ligne 7030. 
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Cette contradiction apparente s'explique par le fait que, pour 
extraire les valeurs sous la forme d'une chaîne, nous avons 
d'abord transformé le nombre en une chaîne avec la fonction 
STR$. Dans ce cas, le nombre a le même aspect, mais il peut 
être traité en tant que chaîne; la seule différence étant que, 
s’il s’agit d'un nombre positif, un espace est ajouté pour com- 
penser l'absence d’un signe ’+’. Le premier caractère utili- 
sable d’un nombre converti en une chaîne grâce à STR$ est le 
caractère numéro 2. 


Cette manipulation se traduit par une courte chaîne sous la 
forme : 


DEUX CHIFFRES D'HEURES/ESPACE/DEUX CHIFFRES DE 
MINUTES/ESPACE/ 

DEUX CHIFFRES DE SECONDES 

Test 


Tapez : 

HEURE = 1{ENTER] 
MINUTE = 1[ENTER] 
SECONDE = 1[ENTER] 
GOTO 7000[ENTER] 


Lorsque le programme affiche une erreur ’Unexpected 
RETURN’ (RETURN inattendu), tapez : 


PRINT tim$[ENTER] 
vous devez obtenir : 
01 O1 O1 


Module 1.2.5 : 
Réglage de l'heure 


Ce module est parallèle à son homologue du programme précé- 
dent. 


MODULE 1.2.5 : LIGNES 6000-6160 


1 RENM HEXEEEKLETERELEREELEX L.] 
FEM *Réalañe de l'heurek 
REM HÉREKEEEREEEEERÉERKAKXKE & 


secondéssecondet 1 


MHILE seconde:53 @ 
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EASG seconde=f:minutesminutet+i 
6464 MHILE minute:59 
SAF4 minutezfG:heuresheure+i 
6484 MHILE heureïlz 
@ En3û heurez=i 
6144 WEHL 
@511a WENC 
6124 WEHC 
@513% LOCATE #1,1:1 
6144 GOSUE Fan 
e°15 PRINTH#L: tim$: 
616Q RETURN 


® D 9 » 9 





Commentaires 


Lignes 6030-6120 : Ces trois boucles imbriquées traversent 
clairement la suite des étapes nécessaires lorsque la deuxième 
valeur est incrémentée de 1. Chaque boucle successive n’est 
activée que si, après le changement des secondes, la valeur des 
minutes ou des heures doit être ajustée, c'est-à-dire si la fin de 
la minute ou de l'heure a été dépassée. 


Lignes 6130-6160 : Comme nous avons créé une chaîne repré- 
sentant l'heure au module précédent, ces lignes s'affichent ver- 
ticalement. Grâce à la fenêtre définie dans le module d'initia- 
lisation, cette opération est fort simple. Si vous revenez au 
module d'initialisation, vous constatez que la fenêtre définie se 
trouve à droite de l'écran et qu’elle n’a qu'un caractère de large. 
Il s'ensuit que tout ce qui s'affiche dans cette fenêtre, est une 
succession de caractères les uns sous les autres. 


Test 
Tapez 


CLEAR 
SECONDE=59 
MINUTE=59 
HEURE=12 

GOTO 6000[ENTER] 


et vous devez voir à nouveau un message ‘’Unexpected 
RETURN" (RETURN inattendu) avec ‘01 00 00’ affiché verti- 
calement sur le bord droit de l'écran. Cela démontre bien que 
les boucles de là première partie du programme mettent cor- 
rectement à jour les trois valeurs. 
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Module 1.2.6 : Affichage de l'heure 


Dans ce module, nous en arrivons à l'affichage des rectangles 
qui vont représenter l'heure. Ce module se propose de présen- 
ter une ligne qui balaie l'écran horizontalement pour représen- 
ter les minutes, et une autre qui descend pour représenter les 
heures. Pour cela, nous avons divisé l'écran en quatre sec- 
tions rectangulaires, deux rouges, deux vertes, les bords de ces 
rectangles représentant les lignes des heures et des minutes, 
comme à la figure 1.2. 


Bien sûr, nous pourrions placer chacun de ces rectangles direc- 
tement sur l'écran à l'endroit correct, mais ce serait une diffi- 
culté inutile. Il nous suffit de tracer sur la partie supérieure de 
l'écran des lignes d'espaces de couleurs qui passent du rouge 
au vert à l'endroit approprié, et sur la partie inférieure de 
l'écran des lignes qui passent du vert au rouge. Les lignes 
elles-mêmes seront créées par une simple boucle et par la com- 
mande LOCATE. 


RECTANGLE 2 
(VERT) 


RECTANGLE 1 
(ROUGE) 


LIGNES DES HEURES 


RECTANGLE 4 


RECTANGLE 3 (ROUGE) 


(VERT) 


nmmCzZ_s nmMmO mzZzOmEr 





Figure 1.2 : L'écran est divisé en quatre sections rectangulaires 
MODULE 1.2.6 : LIGNES 5000-5 100 





© “Ai FRENM HÉEXEXEZÉKEREEREEEREEEXX e 
SA1A REM *XAffichasge de l’heurexk 
e SAZG REM HXKEEEEEREREMEREEKEREFE a 
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EN3a PAPER Z:PEH 3 
Sadg FOR iz2 TO 25 
e SASA IF i=INT heuret2+tminute SE ZITHEN F e 
AFER 3:PEN 2 
Osaésf LOCATE 3, i 
S476 PRINT STRINGSEminutekf, 6, CHR 14352 


@ ; TREK 32) a 
Sü8a NEXT i 
Sa9@ RETURN e 
S519A RETURN 





Commentaires 


Ligne 5030 : Les couleurs verte et rouge sont respectivement 
choisies pour la couleur du papier et pour la couleur d’'impres- 
sion. 


Lignes 5040-5080 : 24 lignes vont s'afficher, chaque ligne 
représentant une demi-heure, à partir de la ligne 2 de l'écran 
(numérotée à partir de O). 


Ligne 5060 : Si la valeur de la boucle a atteint la position où 
devrait se trouver la ligne des heures, les couleurs du papier et 
de l'impression sont inversées. 


Lignes 5060-5070 : Ces deux lignes localisent et affichent une 
des lignes sur l’écran. La fonction SFRING$ permet de créer 
une ligne d'espaces inversés (CHR$(143)) jusqu'à la ligne de 
séparation des minutes. Le TAB en fin de ligne déplace la 
position d'affichage à la fin de la ligne, en donnant à tous les 
espaces inutilisés la couleur PAPER en cours. La longueur de 
chaîne créée sera basée sur la valeur de la variable MINUTE, 
mais sera ajustée (multipliée par 0.6) pour tenir compte du fait 
que l'affichage a 36 caractères de large, et non pas 60. 


Test 
Entrez, en mode direct : 


HEURE=6[ENTER] 
MINUTE=30[ENTER] 
GOTO 5000 


L'écran doit se diviser en quatre rectangles à peu près égaux, 
d’après les lignes de l'illustration précédente. Le programme 
s'arrête alors avec un message d'erreur ‘Unexpected RETURN 
(RETURN inattendu). 
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Module 1.2.7 : Regroupement 


Après avoir entré tous les éléments consécutifs du programme, 
il ne nous reste plus qu'à créer un module de contrôle qui les 
exécute dans l'ordre correct. 


MODULE 1.2.7 : LIGNES 1000-1090 


PEN HEÉEHEEEEEE 
FRENM #lControlef 
FREM #EEEEEEEREE 
OH ERERK. GÜSUE if 
& te GOSUE 
LAS GOSUE 2 
1180 EVER" © 
1479 GÜSUE 4 
148 GOSUE 5 
ia FEN 1:F 





ut 


= 

DRE Lt] 
Frites 1 
D Mi 





® © 


re 
RS 
Ext 
Le) 
ù Pi 
CEE UE UE 


p-m 
x 







5 
PRE 


x] 


ALX 
A 


Mis 
Es 
= 
® ® 2 ® 9 


£ 
Z'a: 
Ti 





E 
CLEAR : EHC 






Commentaires 


Ligne 1030 : La commande ON BREAK GOSUB nous permet de 
définir l'action du programme si nous appuyons deux fois sur 
la touche ESCAPE. Dans ce cas, nous choisissons de sauter à 
la dernière instruction du programme. Les couleurs sont réini- 
tialisées, la mémoire effacée et le programme s'arrête. 


Ligne 1060 : Nous retrouvons ici la commande EVERY qui 
synchronise le programme. À chaque seconde, le module de 
réglage de l'heure est appelé. 


Test 


Vous pouvez à présent exécuter la totalité du programme, intro- 
duire l'heure et la voir s'afficher. 


PROGRAMME 1.3 : COMPTEUR 


Fonction du programme 


Ce programme vous fournit 16 compteurs «à rebours» dont 
chacun peut être programmé séparément pour émettre une son- 
nerie après une période spécifiée et indiquer par un bref mes- 
sage la raison de la sonnerie. 
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Vous pourrez constater que la présentation de ce programme 
est quelque peu différente des précédents. En effet, celui-ci 
étant plus long et plus complexe, nous l'avons complété par 
des lignes de programme vierges permettant d'identifier ses 
diverses unités (ou segments). Ces lignes vierges ne sont pas 
indispensables au fonctionnement du programme, mais elles 
contribuent à sa clarté. Ce programme et quelques autres sont 
les seuls présentés de cette façon, tout simplement parce que 
cette technique appliquée à tous les programmes aurait allongé 
inutilement l'ouvrage. Toutefois, efforcez-vous de l'appliquer 
dans tous vos programmes. 


est exactement : 46:34:19 


OCIEURS 


Z-VQOUS 
me us ai dit de vous lever 
. “otre dernière chance 
avez raté le train 
Jerry sur Canal Plus 
TéléPhoner à 9rand-mère e 


Le 
e 
e 
e 
e 


Ne b Gil 
SANS NP RAS A 





Figure 1.3 : Exemple d'affichage du programme Compteur. 


Nouvelles techniques présentées dans ce programme : 


1) Le module ‘menu’ 

2) L'utilisation simple de SOUND 

3) Insertion et suppression dans des tableaux 
4) Création d'un état d'attente 


Module 1.3.1 : Initialisation 


Ce module d'initialisation est plus complexe que celui des 
deux programmes précédents, en raison de la plus grande diffi- 
culté du programme lui-même. Ce module est surtout consacré 
à la préparation de l'écran, y compris deux fenêtres, à l'usage 
du reste du programme. 
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MODULE 1.3.1 : LIGNES 2000-2150 


O can RE HKXEXETELELEELEE 
ni REM #lnitialisationt 
& caca REM #XEXELELEELELELE 
cA3A MOCE 1 
A GOSUB 1294 
WINDOW 1,44,25,28 
PAFER G:FEN 1:CLS 
WINDOW #1.12,29,1,1 
ñ PAFER h1.G:PEH #1:1:CLS #1 
PRINT #1,"I1 est. exactement :" 
WINCOW #2.1,46,3,23 
A PAFER #2.3:PEN #2,2:CLS HZ:FRINT #2 @ 
A SPEED INK S4.25 
CIM theurec 15 tminute( 155, thoraire & 
(15),mess2a9e$( 152 
e 2149 thorairechiz-1 e 
c154 RETURN 





Commentaires 


Ligne 2040 : Contrairement aux programmes précédents, ce 
module ne contient pas d'instructions INK. La raison en est 
que les couleurs INK seront, à l’occasion, modifiées en cours de 
programme. Cette instruction GOSUB appelle la petite routine 
qui définit les couleurs de départ : nous entrerons cette sous- 
routine immédiatement après l'actuelle. 


Eigne 2050 : La commande WINDOW peut être utilisée de 
deux façons. Nous pouvons réserver une zone de l'écran qui 
sera appelée par un ‘numéro de flux’ - méthode utilisée dans le 
programme Heurfantaisie - ou nous pouvons simplement spé- 
cifier la taille d'une fenêtre. Cela définit la fenêtre par défaut, 
c'est-à-dire celle où l'affichage aura normalement lieu. Ici, la 
fenêtre par défaut est une simple ligne au bas de l'écran. 


Lignes 2070-2120 : Ces lignes définissent deux autres fenêtres. 
L'une (#1) est une simple ligne en haut de l'ecran et l'autre 
(#2) est la partie principale de l'ecran. La commande SPEED 
INK est utilisée lorsqu'un numéro INK a deux couleurs qui lui 
sont affectées ; elle spécifie la vitesse de clignotement des deux 
couleurs lors de l'affichage des lettres. 


Ligne 2130 : Leur utilisation sera décrite dans les commentai- 
res concernant la partie principale du programme. 
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Module 1.3.2 : Couleurs de l'écran 
à la mise en route 


Nous avons dit dans les commentaires du dernier module, qu'il 
était possible de modifier les couleurs de l'écran pendant le 
déroulement du programme. Ce petit module définit les cou- 
leurs initiales. 


MODULE 1.3.2 : LIGNES 1200-1280 __ 


QiEnug REM XEXKKKXENAEREXELAÉEAEXELÉE 
1241Q REM XPFréParation de l’ecrank 
ei2tiû REM KÉKKKKEKKERKREREEELEERAERÉ 
2934 INK 6,1 
e!:4 INK 1,24 
12954 INK 2,26 
12064 INK 3,2 
@1:a74 BORDER 1 
0e RETURN 








Module 1.3.3 : Introduction de 
l'heure 


Ce module est semblable à celui du programme Heurclassi- 
que, à la seule différence que nous adoptons ici une horloge de 
24 heures. 


MODULE 1.3.3 : LIGNES 3000-3100 


O San RENM KÉKELEREEEEKELEREREEREREX 
3414 REM Introduction de l'heuret 

Q:tEn REM HÉEÉKEEEEELEELELEREELEREEE e 
3434 CLS:PRINT'Mise a l'heure:":FEINT 

8 san INPUT "Heure (4-235:";heure 9 

e <:°€ IF heure<f OR heure>Z23 THEH PRINT " 
#XX HORS LIMITES:ESSAYER À NOUVEAU ###": 
GOTO 3%4g 
3064 INPUT "Minute C-593:"iminute e 
3974 IF minuteif OR mimteSt THEN FRINT 

O "#Y#f HORS LIMITES:ESSAYTER À NOUVEAU ##x* @ 
“:COTO 366 

e 454 seconde=f e 
3494 tim=heurekéBtminute 

e°1%a RETURN e 
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Module 1.3.4 : Réglage de l'heure 


Ce module est similaire à ses homologues précédents. 





e 1agaa 
14818 
e1i4a2û 
14938 
e 14945 
1495 
1446a 
6 ;4a7a 
14989 
14094 
141a2 
@1i41iia 
14120 
14139 
8 La1an 
saga 
84150 
14164 
@ 14170 
14188 
“a 














MODULE 1.3.4 : LIGNES 14000-14180 









REM HKEXKXEFEXEEKEEAEEAEXX 
RENM *RéSlane de l’heure* 
REM ÆHXEKEKEKEEEEEELEERELT 
seconde=seconde+s 

WHILE seconde}59 
seconde=f:minutezminute+1 
WHILE minute>s9 
minute=@:heuresheuret+i 
HHILE heure>25 

heure=g 

WENC 

WEHD 

LIENC: 

LOCATE#1.11.:1 

h=heure :m=minute:s=seconde : GOSUE 1 


PRINT#1,tim$; 
timzheure*é6ä+minute 
GOSUB 94aa 

RETURN 


8 2 2 29 D ®2 D D D 9 


Module 1.3.5 : Formatage de l'heure 


Comme dans le programme précédent, le module de réglage de 
l'heure fonctionne conjointement à celui-ci, qui traduit l'heure 
fournie sous une forme intelligible par l'utilisateur. 


MODULE 1.3.5 : LIGNES 15000-15050 


O1 REM XXKKKEAXELEAEEXEREERAERKE 

15414 REM #Création chaine heurex 
@17024 REM HXKEEKEEEEREAEEEEERERER 

15054 tinmb=zSTRSe 1990400+h410006+mx100û+s 
timb=MID$E timé, 3, 22+": 4MICSCtimé, e 





e 


e 1504 
3,01+":"4+MID$ timé, 7.22 
e 15954 RETURN 


fa 


Variations sur les heures 33 


Module 1.3.6 : Test des compteurs 
et sonnerie 


Ce module fait partie intégrante du programme car il permet à 
d'autres parties du programme de marquer une pause pendant 
laquelle l'utilisateur peut faire une entrée, tout en laissant le 
programme poursuivre la lecture des compteurs, pour déclen- 
cher les sonneries nécessaires. Nous allons entrer le module à 
ce stade parce qu'il constitue une sous-routine essentielle pour 
le module de menu suivant; toutefois, nous ne l'utiliserons 
pleinement qu'après avoir entré plusieurs autres modules. 


MODULE 1.3.6 : LIGNES 9000-9300 


GAAA REM XEFEKELELAXEEEMEAEE 

3416 FEM *#Test du comPteur*x 
@ 226 REM ÆHEKEEEEEEREEEEAEX 

3434 IF thoraire(@iibtim THEH KETUEH 
SGA CLS #Z:PRINT #£ 
3854 GOSUE 12044: IHK 2,26. 
2464 PRINT #2, TAËC13): "SONNERIE"; THE 1935 
itesezezse":{NCATE #2,1,11 
SPA mlensLEH messaaedge 6 0 
SASA PRINT HE. TAB 19-mlen-£ ii STRING mle @ 
notés EM 
AG9A FRIMT #2, TAËÉ 19-mlen2 ii "EM: TABLE E+ @ 
mlen/2); "+" 
3144 FRINT #2, TAB 19-mlen 235 "#4 "imessa 
e$eni;" +" 
9114 FRINT #2, TAËS 19-mlens2 ii; EU THE ZE+ 
mlensi is UE" 
9124 PEIHT #2, TABC19-mlen-/Zi: STRIMGSCmle 
nn PE 
4134 notez2 sh 


@5144 MHILE IHKEYS="" AND thoraires fietim 





De 


82 9 92 9 89 D 9 D 9 


@2159 UHILE SG 15 AND F5 
3169 SOUHC 1,note. 15,15 
3174 notes?54-note 
2184 WENDC 
e 3194 LEHDC 
3244 sonné=i 
3214 FOR izi TO comPteurz-1 
@S22û theurec i-1=theurec i à 
3234 tminuteé i-1 =tminites ii 
65248 thorairec i-1sthoraires 1 
JESA messañeÿe i-] =messase$( ji) 
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@ 264 NEXT i æ 
SFA comPteurszcomPteurs-1 

e °=56 IF comPteurssà THEN thorairec@oiz-1 e 
3234 IHK 2,26 


45:6û et 
a” GA RETLFH e 





Commentaires 


Ligne 9030 : C'est notre première référence pratique au tableau 
TTIME, qui stocke le moment d'expiration des compteurs. Les 
modules suivants, qui vous permettront de définir les comp- 
teurs, veilleront à ce que le premier compteur soit toujours 
placé sur la première ligne du tableau, l'élément 0. Le plus 
souvent, lorsque cette sous-routine est appelée, l'exécution se 
termine sur cette ligne. La sonnerie ne retentira que si l'heure 
actuelle, TIM (calculée par le module de réglage de l'heure), 
est identique à l'heure de sonnerie stockée sur la première 
ligne de TTIME. 


Lignes 9040-9120 : Ces lignes paraissent plus complexes qu'el- 
les ne le sont en réalité. Elles ont pour rôle d'afficher le mot 
"SONNERIE dans la fenêtre #2 (la partie principale de l'ecran), 
ainsi que tout message éventuel associé à la sonnerie par- 
ticulière. Le message sera entouré d'astérisques et centré sur 
l'écran par l'affichage du premier caractère sur la position 
déterminée par la formule suivante : 


POSITION CENTRALE SUR L'ECRAN - LONGUEUR DE LA 
CHAINE A AFFICHER/2 


Vous pouvez voir cette formule sur les lignes 9090-9120, où 
elle prend la forme ’19-mlen/2'. 


Lignes 9130-9200 : Ces lignes font retentir (SOUND) une son- 
nerie à deux tons pendant une minute : durée pendant laquelle 
le temps d'expiration du compteur est identique à l'heure 
actuelle en minutes. La sonnerie peut être interrompue en 
actionnant une touche. La boucle intérieure joue la note réelle, 
la ligne 9150 assurant que chaque note est maintenue jusqu'à 
ce que la fonction SQ indique que la note précédente a cessé. 
La variable SONNE reçoit la valeur 1, pour indiquer au module 
de menu qu'une sonnerie a été déclenchée. Ce dernier point 
sera expliqué dans les commentaires sur le menu. 


Lignes 9210-9280 : Après qu'une sonnerie ait retenti, ces 
lignes la suppriment des tableaux qui stockent les heures et les 
messages pour les compteurs. Pour cela, toutes les données du 
deuxième compteur sont déplacées d’une position vers le bas, 
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où elles détruisent le premier élément qui vient juste de se 
faire entendre. La variable COMPTEURS enregistre le nombre 
de compteurs actuellement définis, et elle a donc été réduite 
de 1. Enfin, s’il ne reste plus de compteurs, la ligne 9280 per- 
met de placer une heure impossible à la position du premier 
compteur, pour qu'il ne sonne pas à n'importe quelle heure. 


Module 1.3.7 : Le menu du 
programme 


Et voici une nouvelle technique que nous utiliserons largement 
dans les programmes suivants : le ‘menu’. Dans les program- 
mes précédents, le program- me lui-même a assuré son pro- 
pre contrôle. Dès le lancement (RUN), un module de contrôle 
a ‘pris la main’ et a commandé le déroulement du programme, 
jusqu’à ce que l'utilisateur indique la fin du programme. 


Ce programme (et bon nombre des suivants) est différent car 
il n’y a pas qu'un déroulement unique du programme. L'uti- 
lisateur a diverses possibilités et c'est lui qui, dans une large 
mesure, dirige la manoeuvre. Pour cela, un module appelé 
module du programme, présente une liste de choix. Plus loin 
dans ce livre, nous trouverons des programmes plus complexes 
avec plusieurs menus, dont chacun offre à son tour plusieurs 
choix; pour le moment, nous nous en tiendrons au seul menu 
nécessaire à ce programme. 


MODULE 1.3.7 : LIGNES 4000-4190 


Gaga REM #XKKHE 
dain REM *XMerux 

© 4420 REM #KTKYE 
das WHILE x$<2"5" 

e 4€ CLS #2:FRINT #£ 
JASA PRINT #2, TAB 19; "MENU"; TAES 1905"== 
ez'":PRINT #2 e 
dGéf PRINT #2," 129 Initialiser le compte 
ur" 

8 ana PRINT #2," 2)ù Supprimer le comp teur @ 





@ A4AGSR PRINT #2," 35 Afficher les compteur @ 
s et attendre" 

@ 4296 FRINT #2." 4 Effacer l'ecran et at @ 
tendre" 

ei: PRINT #2," 5 Arreter" e 
4114 sonné=à:}$="" 
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di2a WHILE x$6="" AND sonmezE 
Gaia “H=INKEYS 
4148 IF sonne THEN x<$="" 
415% HEHDC 
4164 ON VALC+xS) GOSUE SGD, 6608, 7A00, SA 
fi 
4178 FRIHT 
e 15% MEND 
4134 FETURH 


e 
e 
e 
8 
« 





Commentaires 


Lignes 4030-4170 : Cette boucle continue d'afficher le menu 
chaque fois que ce module reprend la main, jusqu'à ce que vous 
entriez le chiffre 5. Alors, l'exécution du programme revient au 
module de contrôle, que nous n'avons pas encore entré. 


Lignes 4040-4100 : Ces lignes affichent la liste des options du 
programme dans la fenêtre #2, la feñetre principale qui occupe 
la plus grande partie de l'écran. 


Lignes 4110-4150 : Habituellement, à ce stade du module de 
menu, il y aurait une instruction INPUT normale. Mais nous 
avons inclus un groupe de lignes plus complexes pour appe- 
ler le module précédent, car nous voulons lire continuellement 
l'état des compteurs, même pendant l'affichage du menu. Avec 
INPUT, ce serait impossible car une telle instruction bloque 
le programme jusqu'à ce que la touche ENTER soit actionnée. 
Même l'instruction EVERY n'a pas priorité sur INPUT. 


Ces lignes définissent la variable qui sera utilisée pour stocker 
l'entrée de l'utilisateur (X$), sous la forme d'une chaîne vide, 
et pour continuer l'exécution de la boucle tant qu'elle reste 
vide. Si vous frappez une touche, cette action est détectée par 
l'instruction INKEY$ de la ligne 4130 et le caractère correspon- 
dant à la touche est stocké en X$, ce qui met fin à la boucle. 


Toutefois, pendant cette lecture du clavier, le module précé- 
dent est constamment appelé pour voir si une sonnerie doit 
être déclenchée. La variable SONNE est utilisée de façon très 
simple. Normalement, lors de l'appel du module précédent, 
rien ne se passe et le menu peut continuer. Toutefois, si 
une sonnerie est déclenchée, le menu disparaît de l'écran et 
est remplacé par la sonnerie et par un message. Dans ce cas, 
SONNE recevra la valeur 1 pour indiquer au module de menu 
qu'il faut réafficher le menu sur l'écran. 
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Ligne 4140 : L'entrée faite par l'utilisateur est, dans la mesure 
du possible, transformée en un nombre par la fonction VAL. 
La commande ON..GOSUB choisit dans la liste des destina- 
tions celle qui correspond au nombre entré par l'utilisateur. Si 
le nombre entré est hors des limites de la liste des destina- 
tions de GOSUB, (0 ou supérieur à la longueur de la liste), la 
commande ON...GOSUB n'est pas exécutée et la boucle affiche 
à nouveau le menu. 


Test 


Avant de tester le programme, il vaut mieux entrer le petit 
module de contrôle suivant. 


Module 1.3.8 : Le module de contrôle 


Comme l'essentiel du travail est supporté par le menu, ce 
module est fort simple. On retrouve encore la synchronisa- 
tion obtenue par une instruction EVERY incorporée dans ce 
module. Cette fois-ci, la synchronisation a lieu toutes les cinq 
secondes, comme nous l’avons indiqué dans les commentaires 
sur le module de réglage de l'heure. 


MODULE 1.3.8 : LIGNES 1000-1080 





RENM #Controle* 
REM ÆKXEHEEEKEX 
GÜSUIE 3 
EVERY 3 


A GOSUE 

A GOSUE 

A MÔCE 1 
EHD 


Test 


Si vous lancez le programme, vous devez voir apparaître le 
message demandant l'introduction de l'heure, suivi du menu. 
Entrez quelques nombres incorrects pour bien vérifier qu'ils ne 
sont pas acceptés. Si vous spécifiez les options 1 à 4 du pro- 
gramme, le programme s'arrête et un message d'erreur ‘Line 
does not exist’ (Cette ligne n'existe pas) apparaît, tandis que 
l'option 5 efface l'écran et met fin au programme. 
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Module 1.3.9 : Affichage des 
réglages des compteurs en vigueur 


Ce module permet d'afficher de façon ordonnée, les heures 
réglées pour chacun des 16 compteurs. Pour l'instant, comme 
nous n'avons pas encore entré le module nous permettant de 
définir les valeurs des compteurs, l'affichage sera vierge; mais, 
en entrant le module à présent, nous pourrons tester le module 
de réglage des compteurs, dès que nous l’aurons entré. 


MODULE 1.3.9 : LIGNES 7000-7170 


REM HÉHEE EL ELLE ERAEEEAELELEEELEXEE © 
REM *Afficher les compteurs : 
REM * et attendre 

RENM HREKERELIEEEREREERERALELELERENE 





A k$= uu 
WHILE k$="" 
A CLS #Z:FRIHT #£ 
PRINT #2, TAB 180; "COMPTEURS"; THE 15 
sesesssus";: PRINT #£ 
FOR izf TO comPteurs-i 
hetheure(i2:metminutec i2:3=64:GOSLIB 
e: 7890 PRINT #2. USING " ##5 4";5i+1;tim$+" 
"imessageSe i : 
F18@ NEXT i 
e Ffiiä sonne=f 
712 WHILE k$="" AND sonnezti 
7130 kKS<INKEYS 
F144 IF sonnez=i THEN k$="" 
isa WHEHD 
Fi164 WEHDC 
e’17a FETURH 


*e 
e 
6 
e 
e 
e 
e 
e 
e 
e 


Commentaires 


Lignes 7030-7040 et 7160 : L'affichage persiste jusqu’à ce que 
vous frappiez une touche. 


Lignes 7070-7100 : Comme nous l'avons vu, le nombre de 
compteurs actuellement réglés est enregistré dans la variable 
COMPTEURS. Cette boucle affiche les réglages du nombre de 
compteurs indiqué par COMPTEURS; elle utilise le module 
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1.3.5 pour créer une présentation en chaîne de l'heure telle 
qu'elle est enregistrée dans les tableaux THEURE et TMI- 
NUTE, conjointement à PRINT USING pour obtenir un tableau 
ordonné. Le ’&' dans l'instruction PRINT USING vous surpren- 
dra peut-être; il permet de mentionner un nombre, puis une 
chaîne dans la même instruction. S'il n’y avait pas de ‘’&', une 
erreur ‘Type mismatch’ (Différence de type) apparaîtrait lors- 
que le programme essaierait d'interpréter TIM$ comme un 
nombre, à la ligne 7090. 


Lignes 7110-7150 : Comme dans le menu, ces lignes représen- 
tent un état d'attente pendant lequel une commande EVERY lit 
le contenu des compteurs. À noter que si une sonnerie reten- 
tit pendant l'exécution de la boucle et que vous actionnez 
une touche pour arrêter la sonnerie, l'affichage des compteurs 
n'est pas interrompu. La ligne 7140 assure que, si la variable 
SONNE indique le déclenchement d'une sonnerie, il faut à nou- 
veau actionner une touche avant que le programme ne revienne 
au menu. 


Test 
Tapez : 
CLEAR :COMPTEURS=5 :GOTO 7000[ENTER] 


L'heure des quatre compteurs doit s'afficher, bien que cette 
heure ne soit que ‘00-00-00’ et qu'il n’y ait aucun message, 
puisqu'aucun n'a été entré. Si vous frappez une touche, le 
message d'erreur 'Unexpected RETURN’ (RETURN inattendu) 
apparaît. 


Module 1.3.10 : Introduction de 
l'heure pour un compteur absolu 


Dans un instant, nous entrerons le module permettant de 
régler les compteurs. Toutefois, deux autres modules doivent 
le précéder, pour nous permettre d'entrer l'heure d'expiration 
d'un compteur, sous deux formes au choix. Lors du réglage 
d'un compteur, vous devez spécifier si l'heure est exprimée 
en heure absolue (c'est-à-dire la minute et l'heure à laquelle 
la sonnerie doit retentir), ou s'il s’agit d'un compte à rebours 
(c'est-à-dire si la sonnerie doit retentir après le nombre spéci- 
fié d'heures et de minutes). Le module actuel traite de l'entrée 
d'heures absolues et est similaire au module d'introduction de 
l'heure principale. 
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MODULE 1.3.10 : LIGNES 11000-11070 


A RENM ÉHLÉELEEELEEEEEEEEEERERELEEERX DS 
a FEM #kIntroduction d'un compteur + 
5 FREN # absolu # @ 
ä FEM Fri rritirt st tte tot"; "tt 
el: INPUT "Heure C4 to E32:",theure . 
11@4G IF theure<@ OR theureiz35 THEN PRIH 
T MHESE HORS LIMITES:ESSATER H HOUYEAU # « 
LH£" FOR ist TO SGAG:HEXT i:GOTO 11438 
11854 INPUT "Minute CA to 593%:", tminute 
@iigen IF tminuteif Of tminteS3 THEN FE e 
INT 'HEEE HORS LIMITES:ESSATER 4 HOUVEAL 
@ +tktt":: FOR isi TO ZAAG:MEXT ji: GOTO 1i4s @ 


[e] 
e 11476 FETLRH 8 















® 
Fr 
a dE 





Module 1.3.11 : Introduction de 
l'heure pour un compteur à rebours 


Ce deuxième type de compteur est évidemment plus compli- 
qué car, si dans le cas précédent nous indiquions l'heure de 
déclenchement de la sonnerie, ici le programme doit la calcu- 
ler en ajoutant, la durée spécifiée à l'heure actuelle. 


MODULE 1.3.11 : LIGNES 10000-10090 


Q 100Qû REM KÉXXELEXEXERAXARERAEAAEEEKX @ 
é 19919 REM %Introduction d'un comPtex 


* a rebours* * 

10020 REM XKXKKMKAKKKEXAXELELERKNENAE 

@e 19939 INPUT "Durée en heures (9 to 25):"e 
;theure 

e 12948 IF theure<ÿ OR theure>23 THEN PRIN © 
T "XEKE HORS LIMITES:ESSAYER A NOUVEAU *# 
HXX"; : FOR ii TO ZAMA:MEXT i:GOTO 1045 

© ig05a INFUT "Minutes te 90 (9 to 59):",t 
minute 

© 19960 IF tminute<@ OR tminute}S9 THEN PR @ 
INT "#XXX* HORS LIMITES:ESSAYER À NOUVEAU 

@ *#ttt"::FOR i=1 TO PAGA:NEXT i:GOTO 1945 @ 
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e 1047Q tminuteztminutetminute:IF tminute: e 
59 THEN tminuteztminute-68:theureztheure 


+i 

© 14984 theurestheuretheure:IF theure)23s T e 
HEN theure=stheure-74 

© 12994 RETURN e 





Commentaires 


Lignes 10070-10080 : La valeur actuelle des heures et des 
minutes est calculée par le module de réglage de l'heure qui 
sera appelé régulièrement par une instruction EVERY, lorsque 
la totalité du programme sera entrée. Les heures et les minutes 
indiquées par l'utilisateur (THEURE et TMINUTE) peuvent par 
conséquent être ajoutées aux variables HEURES et MINUTE. 


Module 1.3.12 : Réglage des 
compteurs 


A ce stade, nous avons désormais la possibilité de donner 
l'heure à un compteur. Nous pouvons passer au module prin- 
cipal qui permet d'initialiser les 16 compteurs. À noter que ce 
module utilise INPUT pour obtenir les trois données nécessai- 
res; donc, pendant toute son exécution, il n'y a aucune lec- 
ture des compteurs, et par conséquent, aucune sonnerie ne 
sera déclenchée. 


A noter également que vous ne pouvez pas faire attendre indé- 
finiment une réponse à une instruction INPUT. Pendant ce 
temps, le système enregistre le nombre de fois où il aurait exé- 
cuté la commande EVERY, éventuellement utilisée pour syn- 
chroniser le programme. Il peut même utiliser tout l'espace 
réservé à cet effet, et pour chaque instruction EVERY manquée, 
un appel du module de synchronisation sera oublié, de sorte 
que l'heure enregistrée par le programme sera incorrecte. 


MODULE 1.3.12 : LIGNES 5000-5300 


FEM HÉEEEEEEEEEEELREEEEEELEE 

REN #Réalase des comPteurs* 

FEM XXHKKKEREREEERELARELERE 

IF comPteurs=16 THEN PRINT " #KE 

e “**** FAS DE COMPTELURS LIBRES K#K#ÆX#EX": 
RETLRH 

Po INPUT “Compte à rebours Con" don 
$ 





e 
e 
e 
L.) 
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SAS IF LONERSS doun$oz"o" THEN GÜSUB 144 

@ ni ELSE GOSLE 11994 
5864 thoraireztheureké6ä+tminute 

@ 5278 rtimisthoraire-tim:IF rtimié= THEH@ 
rtimisrtimi+idd4n 

e 5486 FOR i=4 TO comPteurs-1 e 
SG rtimésttimes ii-tim:iIiF rtim2<4 THEH 
rtimésrtirne+1ddf 

Osi68 1F rtimlèrtim2 THEN NEXT i e 
S114 IF icomPteurs AC thorairesthorair 

Ostii THEN FEIHT " KEXEXX COMPTEUR DES 
À INITIALISE #EÆXKEX US: FOR ii TO ZAGA:NEX 

@ T:FETURH & 
S124 toumzi 

a 1134 messaae$="" e 
5144 WHILE message$="" 


e 5154 IHPUT "Messane";messageS e 
5164 IF LENfmessagehiies THEN PRINT "X## 
MESSAGE TROP LONG 625 CAR, MAXK, 2 K#X" 3: 
FOR i=1 TO SAAG:HEXT i:messa9e$="" e 
517A WEHC 
65124 FRINT 
5198 FOR izcomPteurs-1 TO tnum STEP -1 
2en4 theures i+1 stheures ji 
Scif minutes i+1 =tminutes ii 
e Gest thoraireci+i thorairet it 
SES messages i+1 message 12 
e Seda MEXT i 
SES comPteurszcom? teurzs+i 
5268 theurectnumiztheure 
eSE7G tninutec tnumo=tminute 
Se84 thoraireé tnumizthoraire 
OSE message toumimessates 
22394 RETURH 


» 2239999 





Commentaires 


. Ligne 5030 : Si le nombre de compteurs déjà initialisés est égal 
à 16, soit le maximum, un message d'erreur apparaît et le pro- 
gramme revient au menu. 


Lignes 5040-5050 : Vous devez spécifier si un compte à 
rebours est nécessaire. La ligne 5050 traduit l'entrée, si besoin 
est, en majuscules afin que ’Y’ ou ‘y’ soient acceptables, puis 
elle appelle l'un des deux modules précédents. 
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Lignes 5060-5070 : L'heure retournée par le module d'intro- 
duction de l'heure est convertie en un nombre représentant le 
nombre de minutes depuis le début du jour. Puis, il y a sous- 
traction de l'heure actuelle en minutes. Si le résultat est néga- 
tif, l'heure spécifiée concerne le jour suivant et 1440 minutes 
(un jour, exprimé en minutes) sont ajoutées. Par exemple, si 
l'heure actuelle est 1830 (6.30 de l'après-midi) et si le comp- 
teur a été initialisé avec la valeur 1800 (6.00 de l'après-midi), 
le programme suppose que la sonnerie doit retentir à 1800 le 
jour suivant. 


Lignes 5080-5120 : Cette boucle fait que le programme stocke 
toutes les initialisations de compteur dans l’ordre correct, de 
sorte que le compteur, réglé avec la première heure, soit aussi 
le premier de la liste. Pour cela, le nouvel élément doit être 
comparé aux heures des compteurs existants, pour situer sa 
place dans la liste. 


Si le(s) premier(s) compteur(s) de la liste ont des heures infé- 
rieures à l'heure actuelle (autrement dit s'ils doivent se déclen- 
cher le jour suivant) ils se voient également ajouter 1440 
minutes pour les besoins de la compa- raison. Le cas échéant, 
une heure peut être ultérieure au nouveau réglage du compteur 
et l'instruction IF de la ligne 5100 termine la boucle FOR. S'il 
n'y a pas de réglage actuel ultérieur au nouveau, la boucle se 
déroule jusqu'à ce que I soit égal à COMPTEURS, car, lorsque 
une boucle se termine naturellement, sa variable est incrémen- 
tée une dernière fois à la sortie de la boucle. 


Donc, la valeur de I pointe actuellement, soit sur un réglage 
actuel de compteur ultérieur au nouveau réglage, soit sur le 
premier espace à la fin de la liste actuelle des compteurs. Un 
autre test est effectué, pour voir si la position indiquée a déjà 
un compteur ayant la même valeur que celle qui vient d'être 
entrée. Si c'est le cas, un message d'erreur apparaît et le pro- 
gramme revient au menu: À condition que cette erreur ne sur- 
vienne pas, TNUM, l'endroit où le nouveau compteur doit être 
inséré, reçoit la valeur de I. 


Lignes 5130-5170 : Le message à associer au compteur est 
demandé. 


Lignes 5190-5240 : Comme nous savons où le nouveau comp- 
teur doit se trouver dans la liste, nous pouvons déplacer les 
compteurs existants d'une position vers le haut, à partir de 
cette position, créant ainsi un espace. Pour être enregistré, cha- 
que compteur nécessite quatre informations qui se trouvent 
dans les tableaux THEURE, TMINUTE, TTIME et MESSAGES. 
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Lignes 5250-5290 : La variable COMPTEURS est à présent 
incrémentée, indiquant qu'un autre compteur a été ajouté, et 
les quatre données nécessaires sont insérées dans les quatre 
tableaux, à la position indiquée par TNUM. 


Test 


A ce stade, vous êtes en mesure de tester le module en exécu- 
tant la totalité du programme. Lorsque le menu apparaît, choi- 
sissez l'option 1 et entrez : 


Y,0,1 et TEST 


en réponse aux quatre messages, après quoi le menu doit réap- 
paraître. Ensuite, choisissez l'option 2 pour afficher les comp- 
teurs et vous constaterez que le compteur 0 a reçu une valeur 
quelque peu en avance sur l'heure actuelle (ce petit élément 
de temps est fonction de votre vitesse) plus le libellé "TEST. 
N'espérez pas la sonnerie, car nous n'avons pas encore entré 
le module à cet effet. 


Module 1.3.13 : Effacement de 
l'écran 


Ce programme est prévu pour une exécution permanente non 
prioritaire, pour jouer un rôle de synchronisation (avec arrêt et 
reprise automatiques). Le fait de laisser le CPC 464 sous ten- 
sion pour cela est absolument inoffensif. Mais si vous laissez 
l'écran sous tension avec le même affichage pendant une lon- 
gue durée, certaines des parties les plus brillantes de l'affi- 
chage peuvent être légèrement floues sur l'écran, et elles peu- 
vent nuire à la lisibilité. (Pas d'affolement ! Cela ne se pro- 
duira pas simplement parce que vous laissez le 464 et le moni- 
teur sous tension pendant quelques heures par mégarde; il 
s’agit plutôt d’un même affichage pendant une longue période). 


Pour pallier cet éventuel problème, nous avons incorporé dans 
le programme un module de protection d'écran qui efface ce 
dernier jusqu'à ce qu’une touche soit actionnée. Pendant que 
l'écran s’efface, les compteurs sont lus en permanence, et tou- 
tes les sonneries seront déclenchées normalement. 


L'effacement de l'écran par ce module est obtenu en donnant à 
toutes les encres (INK) la couleur de fond. Le module suivant 
appelle ce module et crée un état d'attente jusqu'à la réactiva- 
tion de l'écran. 


Variations sur les heures 45 


MODULE 1.3.13 : LIGNES 13000-13080 


FE HEXKELELRELEEEEXEREREEÉLEE 
1 RENM #Effacement de l'ecrank 
41 REM HXKKEEEEERÉEEEELEELELEXX 

INK 4,6 

INK 1,4 

INK 2.6 

INK 3.4 

ECRDER f 
1 RETURH 
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Module 1.3.14 : Etat d'attente avec 
un écran vierge 


Ce module n'est rien d'autre qu'une boucle de temporisation 
semblable à celles des modules d'affichage du menu et des 
compteurs; toutefois, l'appel du module provoque l'effacement 
de l'écran et, lorsqu'une touche est actionnée, elle réinstaure 
les couleurs de départ. 


MODULE 1.3.14 : LIGNES 8000-8130 


RENM HÉEEHEAEEEETELELEEEEELEX 
FRENM *Effacement de l'ecran 
FRENM HEXEEELELERELEEERELELEX 
E$g=" CL A 

WHILE k$="" 

GOSUE 15:44 

sonnezf 

MHILE k="" HD sonnezf 
ES=INHKE"S 

IF sonnezl THEN kg$=z"" 

WEHC 

WENC: 

GOSUE 12446 

RETURH 
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Test 


Réglez un ou deux compteurs avec de courtes périodes, puis 
choisissez l'effacement de l'écran sur le menu. Bien que vous 
ne puissiez pas voir l’état des compteurs, vous constaterez que 
les sonneries sont déclenchées normalement. 
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Module 1.3.15 : Suppression d'un 
compteur 


Parfois, la valeur d'un compteur doit être supprimée ou modi- 
fiée. Ce module vous permet de supprimer un compteur. La 
technique de base utilisée ici est importante, bien que simple, 
pour les programmes de manipulation de données. Elle con- 
siste à décaler vers le bas le fichier pour ‘écraser’ le compteur 
à supprimer. 


MODULE 1.3.15 : LIGNES 6000-6140 


OEQAA REM HKKÉEEEKÉEKÉEERANEREREX 
614 REM #SuFPrimer le comteur*k 
Oct REM HKKEKXAEKEXEREEXEREEREXT 
6434 IF comPteurszä THEN PRINT “ ÆXXE 
e**t* PAS DE COMPTEURS INITIALISES*K#YKKAY © 
#£":FOR i=i TO 288AG:MNEXT :RETURH 





e éndfn INPUT "Quel compteur"; toum e 
6430 IF trum>comPteurs THEN PRINT " * 
KÉKEEXX COMPTEUR INCONNUXÆXKEKXKXKX" : FOR iz 

O1 TO 2G04:NEXT : RETURH 
6468 FOR i=thum TO comPteurs-1 

OPA theurei i-1 =theurec i) 

684 tminuteci-1=ztminite( i 
6494 thoraireti-1sthoraire( ii 
6100 messaae$( i-1)=messagesé j 2 


e 6114 MEXT i 

6120 comFteurs=comPteurs-1 

6134 IF comPteurs=Q THEN thoraire(@ 
€ 6144 RETURN 


Commentaires 


Lignes 6030-6050 : Messages d'erreur si le numéro de comp- 
teur entré n'existe pas. 


Lignes 6060-6110 : ’L'écrasement’ : tout ce qui se trouve au- 
dessus de l'élément à supprimer est décalé d’un espace vers 
le bas. 


Test 


Vous pouvez à présent initialiser un compteur puis, avec 
l'option 2 du menu, le supprimer avant qu'il ne sonne. Si ce 
test est satisfaisant, le programme est opérationnel. 
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PROGRAMME 1.4 : EVENEMENT 


Fonction du programme 


Le programme final de ce chapitre d'expériences sur l'heure 
est plutôt inhabituel. En effet, il essaie de transformer le 464 
en chronomètre. Bien sûr, la précision d’un micro-ordinateur 
et celle de chronomètres spécialisés ne sont pas comparables, 
mais l'ordinateur présente certains avantages : il peut garder 
une trace des heures qu'il a produites, effectuer des calculs 
sur ces heures, et autres possibilités. Ce programme est conçu 
pour chronométrer un ou plusieurs événements, pour afficher 
les différents temps, avec ou sans message d'identification, et, 
à chaque événement, pour calculer la différence de temps avec 
le précédent. Il peut aussi, à la demande, faire une sortie impri- 
mée de la liste des temps. 
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Figure 1.4 : Liste du programme Evénement. 


Dans ce chapitre, les points suivants sont introduits : 


1) Calcul de temps et de durées. 
2) Sortie imprimée. 
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Module 1.4.1 : Initialisation 


C'est un module d'initialisation standard qui définit une petite 
fenêtre par défaut au bas de l'écran, une fenêtre d’une ligne 
(# 1) en haut de l'ecran et une deuxieme (# 2) qui occupe la 
plus grande partie de l'écran. 


MODULE. 1.4.1 : LIGNES 2000-2160 


OErûAA REM HKEKEELEEELEEEEX 
2814 REM *XInitialisationx 
a cf24 FENM ÆXKEKEHEEELELEREX 
EG34 MOCE 1 
INK 6,1 
IHK 1.24 
INF £,2E 
INK 3,8 
BCRCER 1 
HMIHDOW 1.49,29,2S 
FPAFER G:FEH 1:[LS 
WIHDGOL #1:6,35,1,1 
PAPER #1.G:FEN #1.:2:CLS #1 
PRINT #1.,'"Heure actuelle:" 
WMIHDOUW #2,1,40,3,23 
PAFER #2,3:PEN #2,2:CLS #Z:PRINT #2 
RETLIFH 
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Module 1.4.2 : Réglage de l'heure 


Le module standard de réglage de l'heure des deux der- 
niers programmes. 


MODULE 1.4.2 : LIGNES 3000-3090 


REN HÉXELELELRENELÉEEELEEELELEX 
FENM #Introduction de l'heure 
FEM HÉLELEREEELEEEELELELEELES 
CLS: FRINT "Mise à l'heure":PRINT 
e =" INPUT "Heure (1-125:"heure 

3454 IF kheure<i OR heure:12 THEN FRINT " 

Æ## HORS LIMITES:ESSHYER 4 NOLMEAU #44": 
@ioro 344 

3464 INPUT "Minute 4-69: "minute 
OEA7G IF minuteiA OF minute:53 THEN FRINT @ 

MAX HÛRS LIMITES:ESSAYER À HOUVEALI Æ## 





e 
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Module 1.4.3 : Attente d'entrée 


Là aussi, nous utilisons PNKEY$ pour éviter les problèmes 
liés à l'instruction EVERY lorsqu'INPUT est utilisé. Outre la 
création de l’état d'attente, le module peut accepter une ins- 
truction qui envoie la future sortie à une imprimante. 


MODULE 1.4.3 : LIGNES 4000-4180 


REM #XELEEEEEX 
FEM *Attente* 
A MEN XKXXXAXXX 
A t$="":messaneb="" 
A MHILE t$é="" 
A MHILE t$="" 
LH=INEE"S 
UEHC 
WHILE LOMNERSC ES IE" " 
imPrimantesi-imfrimante 
t$=" “ 
UEHC 
UHILE EtS$=CHRSe 132 
INPUT "Message Lézis car. 1:",messa 





Du] 


2% 3%9PD9 


IF LEHimessagehiceis THEN tés"#" 
4 MEHC 
CLS 
@417à WEHC 


4150 RETURH 
e 


Commentaires 


Ligne 4030 : Cette chaîne est utilisée pour stocker toute tou- 
che actionnée par l'utilisateur. 


Lignes 4040-4070 : Boucle principale, qui se déroule jusqu’à 
ce que T$ reçoive une valeur, soit par le programme, soit par 
le clavier. 


Lignes 4050-4070 : Etat d'attente proprement dit, qui se pour- 
suit jusqu'à ce qu'une touche soit actionnée. 
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Lignes 4080-4110 : Si la touche actionnée est celle de Ia lettre 
P, la valeur de la variable imprimante passe de 0 à 1. Retenez 
bien cette simple ligne, car elle représente la manière courante 
de faire basculer une variable entre deux valeurs. Si vous avez 
une variable X et si vous voulez la faire basculer des valeurs 
V1 à V2 et inversement (où V1 est la plus basse), voici le for- 
mat utilisé: X=VI1+V2-X 


mais, comme notre valeur la plus basse est 0, nous simplifions 
ainsi: X = V2-X 


Lignes 4120-4150 : Si la touche actionnée est ENTER, la ligne 
du bas de l'écran vous invite à entrer un bref message qui 
accompagne l'heure de l'événement, après quoi cette ligne de 
commande est effacée à nouveau. 


Test 
Après vous être assuré que le programme est initialisé, tapez : 
GOTO 4000[ENTER] 


Le 464 se met en état d'attente. Si vous frappez la touche 
P, il n'y a pas d'action visible. Si vous appuyez sur [ENTER], 
un message vous est demandé et l'attente est terminée. Toute 
autre touche met simplement fin au module. 


Module 1.4.4 : Modification de 
l'heure et du temps 


Ce module est similaire à ceux des deux programmes précé- 
dents mais, outre la mise à jour constante de l'heure princi- 
pale, il met à jour une deuxième forme de temps qui repré- 
sente la période écoulée depuis la dernière action sur une tou- 
che. Cette deuxième forme de temps est stockée sous la forme 
de variables commençant par la lettre P. 


MODULE 1.4.4 : LIGNES 6000-6280 





Qt RENM HELELLEEEREREEEEEEEELELEE & 
calin REM Modification de l’heure*# 

el: BEN * et. du temFs * e 
A2 REN HXXETERELEEELELEEELEREELRX 
SASA secondezsecondet+] 

S Égda MHILE seconde 39 e 
EGSA seconde=t:minutezminutet+i 

O ÉGéñ MHHILE minute>s59 e 
EG minitezo:heurezheuret+i 
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UHILE heureïiz 
heurez 
UEHC 
WEHC 
MENC 
PsecondezPseconde+i 
UHILE Pseconde:55 
Fseconde=t:PminutezPminutet+] 
WUHILE Pminite:sg 
Fhinutezd:PheuresFheureti 
UHILE Fheureiz 
Fheurezi 
HENC 
MEHC: 
6224 WENC 
e éc34 LOCATE#I.11.1 
éed44 h=zheure :msminute :s=seconde : GOSUE 7 


Po Pan pa Poe pre Pt et es De fee de de 1 NO 
me A AO 0 7 1 ON da Go PU me 19 KO 03 
SSD RS 0 D 


D 2 2 D D D 9 
D Di Ti Pr ei Te Ti Où Ts M 


-J 
D 
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SEESA PRINT#L: tim$: 
264 h=Fheure:m=Pminute:s=rseconde : GOSUE 


6278 PRINT#1." C'itimé;")" 
e 5289 RETURN 





Test 


Vous ne pouvez tester réellement ce module qu'après avoir 
entré le suivant, qui permet l'impression. 


Module 1.4.5 : Affichage des 
résultats 


Ce module, comme dans les deux programmes précédents, crée 
une chaîne à partir de l'heure actuelle. 


MODULE 1.4.5 : LIGNES 7000-7050 


Fan REM HKKEHÉRHEEEÉEEEE LE EEE X 

rh1a REM XCréation chaine d’'heurek 
GFrtrt REM KKXKEKEKEREEREXERELREEKERE 

TASA tinb=zS TRS 1 0400 A+HE 1 AGE + m1 +E 





er249 timb=MICS tin, 3,234": AMIS tiné,:S e 
+224": "4MID#C tim$,7,2à 
F454 RETURN 


e e 


52 Variations sur les heures 


Test 

Tapez : 

CLEAR :CLS :GOTO 6000[ENTER] 
Vous devez voir : 

00 :00 :00 (00 :00 :01) 


affiché en haut de l'écran. Si vous entrez GOTO 6000 plusieurs 
fois, vous pourrez constater que l'heure augmente chaque fois 
d’une seconde. 


Module 1.4.6 : Impression des 
résultats 
Après avoir entré les modules d'attente et de mise à jour de 


l'heure, nous voulons à présent pouvoir imprimer le temps cal- 
culé lorsqu'une touche est actionnée. 


MODULE 1.4.6 : LIGNES 5000-5100 
FEN ÆRLERAREEAALREEXREEELÉEENE 
FENM #ImPression des valeurs# 
ÉENM ÆEEXEKKERAEALELEEERERELEX 


heheure:meminite:szseconde:GOSUE PE 





Li Fo ee 1 
DORA ET EL 


pet MétimSé 
h=Pheure:merminite:sspPseconde : GOSUE 


CA LS ds CN US LA CA 


Le 


FHeph+" Ctinb+" is l+messaae 
PRINTHZ,F$ 

IF imPrimamtezi THEH FRIHT#: 
Fheurestt:Prinitesf:psecon 


RETURH 7. 
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Commentaires 


Lignes 5030-5070 : Une chaîne est créée, constituée de l’heure 
actuelle (HEURE, MINUTE, SECONDE), suivie de la durée de la 
période (PHEURE, PMINUTE, PSECONDE) et de tout message 
entré par l'utilisateur. L'affichage a lieu sur la fenêtre princi- 
pale de l'écran (# 2). 


Ligne 5080 : Contrairement à beaucoup d'autres micros, le 464 
maintient en permanence un canal de communication ouvert 
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avec toute imprimante connectée. Sur la plupart des autres 
micros, il faudrait ‘ouvrir un fichier pour l'imprimante’, soit 
plusieurs lignes de programmation BASIC. Sur le 464, il suffit 
d'envoyer ce que nous voulons imprimer au numéro de canal 
8, toujours relié directement au port de l’imprimante. 


Ligne 5090 : Les valeurs de période (temps écoulé) sont mises 
à zéro, car elles sont destinées à représenter le temps écoulé 
depuis la dernière action sur une touche. 


Module 1.4.7 : Le module de contrôle 


Pour rassembler le tout, voici le module de contrôle. 


MODULE 1.4.7 : LIGNES 1000-1110 


OGl1AGA REM ÆXXXXALEEE 

1419 KREM *#Controle* 

1924 FEM #XK#AXEEEXE 

1434 OH EREAK GOSUB 1114 
el242 GOSUE 3 

1454 EVERY OISE AAA 





1a6a GOSUE 
@ig7G UHILE 

1489 GOSUE 
@142û GUSUE : 

1148 MEND 
eiiià CLERR:MODE 1:EHD 


Commentaires 


Ligne 1070 : Un petit détail qui peut vous être utile : le ’1” 
après l'instruction WHILE permet le déroulement indéfini de 
cette boucle. Toute autre valeur positive donnerait le même 
résultat. 


Conclusion 


Vous pouvez tirer un certain nombre d'enseignements des pro- 
grammes de ce chapitre. Tout d'abord, le fait que l'usage de 
votre 464 n'est limité que par votre imagination. Mais le point 
le plus important à retenir, si vous revoyez les programmes 
précédents, est la facilité de conception des programmes si tout 
est découpé en modules bien distincts, transférables d’un pro- 
gramme à un autre. Avec sa commande MERGE facile d'emploi, 
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le 464 demande impérativement à être utilisé ainsi. Lorsque 
vous aurez créé une bibliothèque suffisante de routines utiles, 
vous verrez qu'une bonne partie de la programmation consiste 
à rassembler les pièces d'un puzzle. Mais ce puzzle-là sera bien 
souvent plus utile que les précédents. 


2 


Des Dessins 
et des Nombres 





Après avoir joué avec l’heure et le temps, nous allons dans ce 
chapitre voir quelque chose que votre 464 fait particulièrement 
bien : afficher l'information d’une façon plus parlante et plus 
compréhensible que des listes de faits et de chiffres. Vous trou- 
verez trois programmes qui créent des graphiques de différents 
types, en basse et haute résolution. 


Dans ce chapitre ainsi que dans les suivants, les explications 
iront en diminuant, sauf lorsqu'il s'agira de nouvelles idées 
ou de modules complexes. C'est volontaire; nous avons voulu 
un équilibre entre l'information nécessaire à la compréhension 
des programmes, et les programmes proprement dits, qui sont 
votre raison d'achat de ce livre. Si un point vous paraît diffi- 
cile, vous constaterez souvent qu'une technique similaire a été 
utilisée dans un programme précédent. Il vous suffira de relire 
le commentaire approprié. C'est pour cela que nous vous avons 
conseillé dans l'introduction de suivre l'ordre du livre, sans 
passer directement aux programmes les plus complexes. 


Voici les programmes de ce chapitre : 


COURBE : Crée un graphique de grande qualité sous forme de 
courbe en haute résolution. 


CERCLE : Prend un petit nombre de données et les affiche sous 
la forme d'un cercle divisé en segments multicolores. 


HISTOGRAMME 3D : Vous permet de créer un histogramme 
en trois dimensions tout-à-fait remarquable. 
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PROGRAMME 2.1 : COURBE 


Fonction du programme 


Dans les programmes de traitement des données, la façon 
d'entrer les données représente en général une consommation 
importante de temps et de mémoire. Cela se traduit souvent par 
des sections de programme longues et complexes, consacrées 
à la saisie, à la modification et à la suppression de données. 


Dans les deux premiers programmes de ce chapitre, nous pal- 
lions ce problème en créant un programme qui, bien que facile 
d'emploi, n'utilise pas de mémoire pour afficher des messa- 
ges sur l'écran, stocker des données dans les tableaux ou enre- 
gistrer des données sur cassette. Les programmes interactifs, 
c'est-à-dire ceux qui guident l'utilisateur pendant l'exécution, 
sont certes séduisants mais quelque peu luxueux lorsque la 
mémoire est limitée. Dans ce programme, qui trace un graphi- 
que haute résolution, nous utilisons des instructions DATA qui 
contribuent à la simplicité; son écriture est pourtant bien plus 
simple que celle d'un programme interactif pour un résul- 
tat identique. 


TEST 





Figure 2.1 : Affichage obtenu avec le programme Courbe. 
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Modules 2.1.1 et 2.1.2 : Les 
données de la courbe 


C'est sur ces deux modules que repose la simplicité du pro- 
gramme. Vous trouverez dans ces quelques lignes toutes les 
informations nécessaires au tracé d’une courbe, avec des 
libellés clairs, pour une création facile de l'affichage. Si, à ce 
stade, vous ne saisissez pas bien la signification de tous les 
chiffres, ne soyez pas inquiet; vous les comprendrez mieux 
lorsque vous aurez entré et exécuté le programme une ou deux 
fois, et que vous aurez essayé certaines modifications. 


MODULE 2.1.1 et 2.1.2 : LIGNES 3000-4050 


REM HEXKEEXEEX 

FRENM #Connée 1# 

REM HEXXHEXELEX 

CATA TITRE DE LA COUREE,TEST 
DATA NOM H&E-H, HORIZONTAL 
DATA NOM AXE/VY, VERTICAL 
CATA UNITES SUR AXE/H,.2 
CATA UNITES SUR A4E-/Y, 24 
DATA VALEUR PAR UHITE-Y, 16 
RENM HEXEXEAEEX 

FENM #Connée Z* 

RENM HÉHELEEHEEE 

CATA 5.168.204, 48,7 
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Commentaires 


Lignes 3030-3050 : Nom général donné à la courbe par l’utili- 
sateur et libellés associés à l'axe vertical (ordonnées) et à l'axe 
horizontal (abscisses). À noter que, dans chaque cas, la phrase 
précédant la virgule dans l'instruction DATA n'est là que pour 
la clarté et qu'elle est ignorée par le programme. En fait, la vir- 
gule est essentielle pour séparer la partie explicative à gauche, 
de la partie d’information proprement dite à droite. 


Lignes 3060-3070 : Les deux axes de la courbe sont divisés en 
unités, pour faciliter la lecture. Bien que ces axes aient tou- 
jours la même longueur, vous pouvez spécifier la division en 
un certain nombre d'unités. 
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Ligne 3080 : Si, par exemple, la courbe doit représenter des 
tonnes de céréales produites par un pays pendant un cer- 
tain nombre d'années, vous pouvez décider que chaque unité 
de l'axe des ordonnées représente 1 000 tonnes. Plutôt que de 
vous demander de diviser le nombre réel en unités de 1000 
avant la saisie, le chiffre de cette ligne permet de spécifier 
les unités, afin que chaque nombre puisse être entré intégrale- 
ment. 


Lignes 4030-4040 : Données de base de la courbe. Dans le pré- 
sent programme, ces nombres donneront une courbe régulière 
en forme de cloche. A noter qu'un seul nombre par unité est 
prévu sur l'axe des abscisses, à partir de la position 1, bien 
que la totalité de cet axe ne soit pas utilisée. Vous pouvez pla- 
cer autant de données que vous le souhaitez sur chaque 
ligne séparée. 


Ligne 4050 : Le nombre d'instructions DATA n'est limité que 
par la mémoire, mais vous devez terminer par une instruction 
DATA contenant le mot END. Cela indique au programme qu'il 
a atteint la fin des données utilisées pour la courbe, même si 
d'autres instructions DATA suivent. 


Module 2.1.3 : Traçage de la grille 
de la courbe 


Ce module trace la grille quadrillée qui doit recevoir la courbe, 
avec les unités sur les axes et les divers libellés. 


MODULE 2.1.3 : LIGNES 1000-1190 


@ 1000 REM KÉHEHEEOMENONERNERE 
1414 REM XTrasSage de la arille* 
@1a28 REN KÉEÉERE EEE ERNEEX 
1934 MODE 1 
a 1248 MOVE 32,368 
1459 DRAW 32,32,2 
1864 DRAU 639,22 
OS ;u7a RESTORE 2000 
1a8à READ t$,t$:LOCATE 2G-LENCtS 2-2, 
@INT t$ 
1A94 READ t$:t$:LOCATE 21-LENCt$ 2/22 
@EINT t$ 
1198 RERD t$,tS:FOR i=1 TO LENCES):LOCAT 
@Ë 1:12-LENCtS3/2+i: PRINT MIDSCHS, ji, 10:NE @ 
#T ji 





SAP 
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6 1118 READ &£$, nv: lvz336/n e 
112 FOR i=o TO nv 
1159 MOVE 2Zd4+f5xkf i/S=INTC 1/5 20, 32+1#lv:D0R 
A 32,32+ik1v 6 
114@ HEXT :i 

61154 READ t$, 0h: 1h=686-nh [. 


1164 FOR i=6 TO nh 

@1i74 MOVE 3Z+141h: Z+S#c 1/S=INT( 1/5533:DA @ 
AW 22+1#1h, 532 
1154 MEXT i e 
1194 READ t$,unité 


m A 





Commentaires 


Lignes 1040-1060 : Les deux axes sont tracés, une ligne par- 
tant de l'angle supérieur gauche de l'écran et se dirigeant vers 
l'angle inférieur gauche, se poursuivant par un angle droit le 
long du bas de l’écran, vers l'angle inférieur droit. 


Ligne 1070 : Le ‘pointeur de données’ du 464 pointe sur la pre- 
mière donnée qui suit le début du module à la position 3000. 
Cette instruction RESTORE empêche l'apparition d'une erreur 
"DATA exhausted' (DATA épuisées) si le programme com- 
mence par GOTO. De toute façon, l’utilisation de RUN place le 
pointeur sur la première donnée. 


Lignes 1080-1100 : Les libellés de l’ensemble du graphique, de 
l'axe des abscisses et de l’axe des ordonnées sont lus à par- 
tir des instructions DATA et affichés sur l'écran. Dans le cas 
de l'axe des ordonnées, une boucle permet d'afficher le libellé 
caractère par caractère verticalement sur la partie gauche de 
l'écran. A noter que dans chaque cas, il y a deux instructions 
READ. La première prend la phrase avant la virgule de l'ins- 
truction DATA. Cette lecture est immédiatement annulée par 
la lecture (READ) d'une autre chaîne dans la même variable, 
T$. 


Ligne 1110 : Le nombre de graduations à placer sur l'axe des 
ordonnées (NV) est lu à partir de l'instruction DATA suivante. 
Ensuite, la longueur de l’axe des ordonnées (338 pixels) est 
divisée par ce nombre pour obtenir la longueur de chaque divi- 
sion en pixels (LV). 


Lignes 1120-1140 : Cette boucle trace de petites graduations 
sur l’axe des ordonnées, pour représenter les divisions spé- 
cifiées par l'utilisateur. À noter particulièrement l'expression 
8%(1/5=INT(1/5)), qui a pour effet de tracer une marque plus 
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importante toutes les cinq graduations. Pour comprendre cette 
expression, vous devez avoir des notions de traitement des 
conditions logiques’ par le 464. 


Lorsque l'interpréteur BASIC du 464, le programme en code 
machine qui exécute BASIC, rencontre une condition après une 
instruction IF, par exemple ’A>B', 'A=B’ ou 'A<=B, il doit 
déterminer si cette condition est vraie ou fausse pour décider 
s'il exécute l'action spécifiée par l'instruction IF. Ainsi : 


IF A>B THEN GOSUB 1000 


sera exécutée si 'A>B’ est vrai (par exemple A=10 et B=9) et 
ignorée si elle est fausse (par exemple A=9 et B=10). Pour la 
décision, la condition est évaluée d'après les valeurs en cours 
A et B (ou toute variable spécifiée) ; elle reçoit une valeur de -1 
si elle est vraie, et de 0 si elle est fausse. C'est la valeur bien 
plus que la condition elle-même qui est importante, un fait 
facile à démontrer avec le petit test suivant. Entrez en mode 
direct : 

A=5[ENTER] 

IF A THEN PRINT « VRAI »[ENTER] 


Résultat : «VRAI» s'affichera sur l'écran, car la valeur qui suit 
l'instruction IF n'est pas 0 (toute valeur différente de zéro, 
positive ou négative, produirait le même effet). A présent, 
essayez : 

A=O[ENTER] 

IF À THEN PRINT « VRAI»[ENTER] 


Cette fois-ci, rien ne s'affiche. Toutefois pour l'instant, nous 
ne nous intéressons pas particulièrement à la façon dont IF 
fonctionne, mais à la manière d'évaluer les conditjons. Donc, 
essayez ce qui suit : 

A=I1[ENTER] 

B=1[ENTER] 

PRINT A=B[ENTER] 


Vous devez voir ‘-1', la valeur d'une condition vraie. Puis, 
essayez : 

A=I1[ENTER] 

B=2[ENTER] 

PRINT A=B[ENTER] 


Le résultat sera ‘0’ car la condition n'est pas vraie. Au début, 
cela peut paraître intéressant mais pas forcément utile. En 
fait, cette faculté d'extraire une valeur d'une condition logi- 
que est très PORAME en programmation, comme l'illustre la 
ligne 1130. 
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La ligne 1130 trace une série de lignes à angle droit sur l'axe 
des ordonnées, pour matérialiser les divisions spécifiées par 
l'utilisateur. Ces lignes ont normalement une longueur de 8 
pixels. Toutefois, chaque fois que la valeur de la variable I de 
la boucle est exactement divisible par 5 (c'est-à-dire tou- 
tes les cinq marques), la condition (1/5=INT(1/5)) est vraie et 
amène la valeur -1 plutôt que 0. Autrement dit, en incluant ‘- 
8%(1/5=INT(I/5))' dans la ligne qui spécifie la longueur de la 
marque à tracer (DRAW), nous pouvons doubler la longueur 
de chaque 5ème marque, sans avoir recours à une instruction 
IF... THEN...ELSE complexe. 


À noter que pour ajouter huit à la longueur de la marque, nous 
devons retirer huit fois la valeur de la condition, car sa valeur 
est de moins un si la réponse est vraie : soustraire un nombre 
négatif équivaut à en ajouter un positif. 


Lignes 1150-1180 : La même opération a lieu pour l'axe 
des abscisses. 


Ligne 1190 : Le nombre d'unités représenté par chaque divi- 
sion sur l'axe des ordonnées est lu à partir de l’instruc- 
tion DATA. 


Test 


Pour tester cette partie du programme, il nous suffit d'exécu- 
ter le programme dans son état actuel. La grille de la courbe 
va apparaître sur l'écran avec ‘TEST’ en haut, ‘VERTICAL’ sur 
la partie gauche et "HORIZONTAL au bas de l'écran. Les deux 
axes sont divisés en 20 segments. 


Module 2.1.4 : Traçage de la courbe 


Après avoir défini le cadre, il nous reste à tracer la courbe pro- 
prement dite en utilisant les informations spécifiées dans le 
module DATA?2. 


MODULE 2.1.4 : LIGNES 2000-2160 





GE REM KKEKEKELEEEHELKELÉEÉEX e 
2414 REM #Trasaae de la courbef 

een PEN HEEEEEEEREREE ER EEEEEEE æ 
CSC OH ERROR GOTO Zi4f 

e “+ RESTURE 4naa @ 
cn9Q READ t 
rGE4 PLOT 32,32+t-unité*kls 
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colonnez1i 

REAC £$ 

IF té="FIH" THEH GOTO 21356 

CEAU S2+th#colonne, 32+YALCES unité 


1 

1 

11h colonmezcolonnet+i 
1 GOTO 2484 
1 

1 

1 


IF IMÉEYS="" THEN GOTO 213 
CLS 


8 9 D dd 9 € 





Commentaires 


Lignes 2030 et 2130-2160 : Si une erreur survient pendant le 
traçage principal, ou si une touche est actionnée après la repré- 
sentation de la courbe, l'écran s'efface et donne la liste des 
données ayant servi de base à la courbe. Il est donc très facile 
d'examiner la courbe et d'en changer certains détails. 


Ligne 2050 : La première donnée est lue. 


Ligne 2060 : La courbe commence sur l'axe des ordonnées, sur 
un point représentant la taille de la première donnée, expri- 
mée en unités telles que vous les avez spécifiées; 


Ligne 2070 : COLONNE permet d'enregistrer le nombre de 
données lues et, en conséquence, la distance de progression de 
la courbe sur l’axe des abscisses 


Lignes 2080-2090 : Les données suivantes sont lues sous forme 
de chaînes. Ainsi, il est possible de tester si la donnée lue est 
le mot 'END' et, si c'est le cas, de terminer le programme. 


Lignes 2100-2120 : Comme le curseur graphique se trouve déjà 
à l'extrémité de la partie de la courbe déjà tracée, il suffit de 
tracer (DRAW) jusqu’au point adéquat suivant, en incrémen- 
tant COLONNE pour chaque donnée lue. Les coordonnées X 
ou horizontales sont calculées en multipliant COLONNE (le 
nombre d'unités d'avancement de la courbe sur l'axe des abs- 
cisses) par la longueur en pixels des unités horizontales (LH) 
- la constante 32 représente la distance entre le début de l'axe 
des abscisses et la partie gauche de l'écran. Les coordonnées Y 
ou verticales sont d’abord divisées par UNITE. 

Donc, si la donnée était de 1 000 000 et si vous aviez spécifié 
que l’axe des ordonnées devait être divisé en unités de 100 000 
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(UNITE = 100000), le résultat serait de 1000 000/100 000, 
soit 10 unités. Le nombre d'unités ainsi obtenu est ensuite 
multiplié par la longueur en pixels des unités verticales (LV). 


Test 


Exécutez le programme terminé et vous allez voir apparaître 
une courbe régulière en forme de cloche. Lorsque la courbe 
est terminée, frappez sur une touche pour afficher les modules 
DATA, afin de les modifier à votre gré. Si ce test est satisfai- 
sant, le programme est prêt à l'emploi. 


PROGRAMME 2.2 : CERCLE 


Fonction du programme 


Pour représenter de petites quantités de données, une techni- 
que convient particulièrement : le cercle (vous trouverez 
aussi les désignations : diagramme circulaire, tarte, camem- 
bert, etc.). Un cercle représentant un total est fragmenté en 
segments ou en secteurs correspondant aux différents compo- 
sants du total. Dans le programme suivant, nous allons mettre 
en pratique nos connaissances sur les cercles et leur aspect 
mathématique, et sur l'utilisation souple des instructions 
DATA du dernier programme. En cas de doute, revoyez les pro- 
grammes précédents, car nous n'expliquerons pas à nouveau 
ces techniques. 


TEST 


CINQ 


SIX 





Figure 2.2 : Affichage obtenu avec Cercle. 
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Nous pouvons conserver les lignes entrées pendant le test, car 
elles doivent faire partie du dernier module, le module de con- 
trôle. 


Module 2.2.1 : Les données du cercle 


Comme avec le graphique haute résolution précédent, les nom- 
bres servant de base au présent graphique sont contenus dans 
des instructions DATA qui se passent d'explication. À noter 
toutefois que dans ce programme particulier, les deux tableaux 
utilisés pour contenir le nom de chaque donnée et sa valeur ne 
sont pas dimensionnés; vous êtes donc limité à 10 données. En 
fait, un diagramme circulaire de plus de 10 données présente 
peu d'intérêt, car trop chargé. Dans ce cas, il vaut mieux choi- 
sir une autre représentation graphique. Toutefois, vous pou- 
vez, si vous le souhaitez, placer une instruction de dimension- 
nement au début du programme pour augmenter le nombre de 
données utilisables. 


MODULE 2.2.1 : LIGNES 4000-4080 


O AG RENM HEXEKXELELEEEERÉLEEELELREE 
4ñifh REM #*Données Pour le cercle* 
© 4224 REM ÆXKKKEAKENRERAEREEERERERRE 
4434 CATA TITRE,TEST 
e +244 CATA NOMERE D’ITEMS,3 
3454 DATA NOM, UN, CEUX, TROIS, GUATRE, CIN, 
@ ©1*:SEPT/HUIT,HEUF , DIX 
4a6a DATA 
aa7@ DATA QUANTITES,1,2,3,:4,5,6,7,6,93, 14 
6 4989 DATA 
















Module 2.2.2 : Traitement des 
données du cercle 


Les informations du module DATA sont lues dans les variables 
NOMS$ et DONNEES et dans les tableaux NOM$ et A. 


MODULE 2.2.2 : LIGNES 5000-5110 





@ SAGE RENM XXXKKXAKELAKKLELEEEAREXEX e 
2919 REM XTraitement des données* 

ae 626 REM #HXKERAREEEEEEEEELEXELEE @ 
5834 RESTORE 490 

ae 246 READC t$, nom$ # 


ann READC t$, items 
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Sa6@ READ t$:FOR i=g TO items-1:READ nom 
OgCid:NEXT. i 
Sa7@ RESTORE 4a7a 
65434 somme=@G:READ t$:FOR i=@G TO items-1: 
RERAD-t':sommezsommett :NEAT i 
65994 RESTORE 4474 
519 RERAD t$:FOR i=A TO items-Z:READ t:a 
Citii=it/somme2)*369+ac i):NEXT i 
S11Q RETURN 


» 2 ® D» 9 


@ 





Commentaires 


Lignes 5080-5100 : Les valeurs des données à tracer sont 
d'abord additionnées pour connaître le total représenté par le 
cercle. Puis le pointeur DATA est ramené (RESTORE) au début 
des nombres de quantités. Chaque quantité est traduite en un 
deuxième nombre qui, lorsqu'il est divisé par 360, donne le 
même résultat que la division du total par la quantité initiale. 
Ainsi, un total 100 et une quantité d’une donnée de 25 donne- 
rait 90, soit 25 % de 360. Ces nouvelles valeurs permettront 
ultérieurement de déterminer la portion du cercle à attribuer à 
chaque donnée. 


Test 


Entrez les lignes suivantes de ce qui deviendra le module de 
contrôle, puis exécutez le programme : 


1040 GOSUB 5000 
1100 END 


Si tout s'est bien passé, rien n'apparaît. Ce n'est qu'en cas 
d'erreur que vous verrez quelque chose. Toutefois, si vous vou- 
lez vous rassurer, vous pouvez imprimer le contenu des varia- 
bles et des tableaux du module. 


Module 2.2.3 : Préparation de l'écran 


Ce module appelle le mode graphique et les couleurs associées, 
et trace un cercle de 80*%80 au centre de l'écran, avec le nom 
du diagramme. 


MODULE 2.2.3 : LIGNES 2000-2090 


RE HKEKEEKEEEEELEREREEEEE e 
RENM #TraSane de 12 courbet 
RENM HKKELEREEELELEEEKELEEX e 





e can 
2414 
a En2n 


66 Des dessins et des nombres 


2434 MOCE 1:ORIGIH 324.,184:ECRCER 9 

e << INK GG:INK 1,2:1INK 26: IHE 3,15 e 
2ASA LOCATE ZA-LENS nom$ 2/2, 1:PEN Z:PRINT 
nor 

O za6û DES e 
zara FLOT 4.184,23 

@Eusg FOR a=4 TO 264 STEF 15:CRAU 184#51IH 9 
Laits LEdÉCOSC a: NEXT a 

e 2426 RETURN e 





Commentaires 


Ligne 2080 : Si vous lisez les explications concernant les cal- 
culs liés au traçage d'un cercle dans les commentaires du pre- 
mier programme de ce livre (chapitre 1), vous verrez que cette 
ligne trace tout simplement un cercle. Plutôt que de représen- 
ter chaque point individuellement sur la circonférence, une 
série de points distants de 15 degrés sont calculés, puis reliés 
par des lignes. 


Test 


Ajoutez les lignes suivantes puis exécutez le programme : 


1060 GOSUB 2000 

1080 IF INKEY$=»» THEN GOTO 1080 

Vous n'obtenez rien de plus que le titre du diagramme et un 
cercle jaune. Pour revenir à l'écran normal, frappez une touche 
autre que ESC. 


Module 2.2.4 : Insertion des détails 


Ce module trace les segments qui vont diviser le diagramme, 
les colorie et place les libellés spécifiés dans le module 
DATA. Pour bien comprendre ce processus, rappelez-vous de la 
création d’un cercle, telle que nous l'avons expliquée dans le 
programme Heurclassique. N'hésitez pas à revenir sur ce pro- 
gramme et à en relire les commentaires. 


MODULE 2.2.4 : LIGNES 3000-3170 





8 5090 REM #XKXKEKEXKEEXEXEKEREKAEXX e 
3918 REM Insertion des segments* 
e 3029 REM XXXKXKXKEXALKEEELEXELEEEE e 


er FOR i=@ TO items-1 
3444 MOVE 4,@:DRAU 1E4X#SINE ac i 22, 184XC00S à 
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catidi 
3459 NEXT i 

82255 PEN 1 @ 
53064 FOR i=:@ TO items-1 

@3A7@ ta=((aéi+ac iti+itematé itisitems))) @ 
2/2 

a 5988 IF acitititemest(i+isitems 31) TH @ 
EN ta=ta+18f 
3994 MOVE 128A#5IN ta), 18R4C0S tad:czi MO A 
CO S+1:IF i=items-1 ANC czi THEN cz2 
3194 GOSUE 64an 


O 5110 tx=1S44S INC ta à e 
3120 tu=184#C0SC ta ) 
3124 de R2ALSGM tie à ae 


3144 MOVE tx,ta:DRAW dx, tu,3 

@ 3159 LOCATE 1+6LEMS nom$c i )-4@3#c dx=329) @ 
s14-INTCCtu+9 2-16 2: PRINT nom$s i 2; 

a 2164 NEXT i e 
317@ RETURN 


L.. # 





Commentaires 


Lignes 3030-3050 : Plusieurs lignes sont tracées du centre du 
cercle vers la circonférence, divisant le cercle en segments. Les 
nombres utilisés sont ceux que nous avons calculés au module 
2.2.2. 


Lignes 3070-3100 : D'autres angles sont calculés, mais cette 
fois-ci ils sont situés au milieu de chacun des segments que 
nous venons de tracer. L'expression logique des lignes 3070 
et 3080 (DONNEES*(I+ 1=DONNEES) fait que, lorsque le der- 
nier segment a été atteint, le début du premier segment sert 
de deuxième angle pour calculer la position médiane. Pour ce 
dernier calcul, la réponse sera fausse : au lieu d’additionner un 
angle avec un angle supérieur et de diviser par 2 pour trouver 
le point médian, l'angle du dernier segment est ajouté à 0 (le 
début du premier segment), ce qui donne un angle situé à mi- 
distance entre le début du premier et du dernier segment. 
Cette erreur est rectifiée en ajoutant 180 degrés à la der- 
nière réponse. 


Ensuite, la ligne 3090 calcule une position sur la base de cet 
angle juste à l'intérieur de la circonférence du cercle. Ensuite, 
un appel du module suivant, très semblable au module de 
«remplissage » utilisé avec Heurclassique, permet de colorer le 
segment en forme de secteur où se trouve le point en cours. La 
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ligne 3090 produit également un cycle régulier des trois cou- 
leurs d’avant-plan spécifiées dans le module d'initialisation, à 
l'exception du dernier segment qui ne peut pas avoir la même 
couleur que le premier, pour faciliter la lecture. 


Lignes 3110-3120 : Ces deux lignes calculent un point sur la 
circonférence du cercle, à un angle situé à mi-distance entre le 
point de départ et d'arrivée du segment en cours. 


Ligne 3130 : Lorsque nous avons créé le cadre du graphi- 
que, nous avons déjà déplacé l'origine des commandes graphi- 
ques au centre de l'écran. Cette ligne calcule une position sur 
l'écran à 320 pixels du centre. La variable TX contient déjà la 
coordonnée X d'un point sur la circonférence qui peut être soit 
négatif (à gauche du centre), soit positif (à droite du centre). 
En multipliant 320 par SGN(TX), si le centre du segment est 
à gauche du centre de l'écran, il en sera de même pour DX, 
et vice-versa. 


Lignes 3140-3150 : Une ligne est tracée de la circonférence du 
cercle vers le bord gauche ou droit de l'écran, d'après la défi- 
nition de DX. A l'extrémité de la ligne, ou plutôt sur elle, est 
placé le libellé du segment sur lequel pointe la ligne. La posi- 
tion d'affichage des libellés à droite est déplacée à gauche, pour 
qu'ils ne débordent pas des limites de l'écran; pour cela, une 
condition logique permet de déterminer la coordonnée X. La 
ligne paraît plus complexe qu'elle ne l'est en réalité, en raison 
de la nécessité de traduire la position calculée précédemment 
en pixels, en une position de caractères. 


Test 
Ajoutez les lignes suivantes et exécutez le programme : 


1070 GOSUB 3000 
6000 RETURN 


Vous devez obtenir un affichage comme celui du début de la 
section de ce programme, avec des segments individuels 
non coloriés. 


Module 2.2.5 : Rembplissage des 
segments 


Ce module est pratiquement identique à celui du programme 
Heurclassique, à la seule différence que le remplissage se pour- 
suit jusqu'à la rencontre d'une couleur différente de la couleur 
de fond. 
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MODULE 2.2.5 : LIGNES 6000-6300 


cs RENM ÆHEKKLEFEEELXX 

A1 REM *RemPlissa9e* 

A REM ##KKHEXEEAEKX 
IF TESTRCG, 4324 THEN FETURNH 


sx2 


MOVE SsXINTÉXPOS/s ), ZXINTÉYPOS-2 2 





a REM recherche haut/droite XXKX4KXX## 
IF TESTRÉG,s2=4 THEN GOTO 6434 
IF TESTR(S,-53=09 THEN GOTO 643G 


REM recherche haut/aauche X#KK#4k44% 
MOYER -s,04 
IF TESTRCG,23=4 THEN GOTO 6494 


IF TESTRC-s,-59=4 THEN GOTO 6154 


RENM Coloriage des lianes XKÉXHHHX* 
X1=#FOS 
MOVER s,4 

ñ PLOTR 4.@,c 
IF TESTRCS.G@3=4 THEN GOTO 6224 
k2=XPOS-S< 
MOVE x1, PO0S-Ss 
IF TESTRÉS,Gù=f THEN GOTO 6294 
IF XPOS=xZ THEN RETURN 
GOTO 6264 
IF TESTR<-s,43<24 THEN GOTO 6264 
GOTO 6294 


2» 82 2223 DVDDDD D 9 


Test 


Identique au module précédent, mais à présent les segments 
sont coloriés. 


Module 2.2.6 : Le module de contrôle 


La plupart des lignes de ce module ont déjà été entrées, mais 
assurez-vous, avec le listage ci-après, que rien ne manque. 
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MODULE 2.2.6 : LIGNES 1000-1120 


FEN ŒHXKXEEEXEEE 

FEM #Controlef 

RE ÆXYEHEEEEX 

OH ERKROK GOTO 1114 

GOSUE SGA 

OH EREFK GÜUSUE 1439 

SOSUE AAA 

GOSUR 3AAE 

IF IHEETS="" THEH GOTO 1484 

CLERR:CLE:LIST difi-4399 

EHC 

æ FÉINT"  ÆX* FORMAT GES CONHEES FRÛE 
HELEMENT IHCORRECT *##" 

eli:t FOR i=1 TO SAAM:MEXT ji: GOT 1494 





a 


Ep ess Es 
CA DO DE EN EE OU EE NX | 


ÉD DCODOURCUE D'ORDRE L'ORCOE 


É 
1 
3 
d 
3 
16 
1 
& 
3 
[n 
1 


dot 
2, 


3 ®% ®% ®% 9 
SE me em ee mt 
DR 


£ 
[5 
Ë 
fi 
1 


mis 


Fe 
bn 


Commentaires 


Lignes 1030 et 1110-1120 : Bref message d'erreur indiquant 
qu'il y a probablement une erreur dans le module DATA. Ce 
n'est pas un test infaillible, car certaines anomalies ne génè- 
reront pas d'erreurs détectables par ON ERROR. 


Test 


Remplacez l’un des nombres sous l'en-tête 'QUANTITES’ par 
une lettre, puis exécutez le programme. Vous devez voir le 
message d'erreur suivi du module DATA. Corrigez cette erreur 
délibérée et exécutez à nouveau le programme. Cette fois-ci, en 
appuyant deux fois sur ESC (ou une seule fois sur une autre 
touche lorsque le diagramme est terminé), vous devez obtenir 
le listage du module DATA. 
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PROGRAMME 2.3 : 
HISTOGRAMME 3D 


Fonction du programme 


Après avoir présenté des données en mode haute résolution de 
deux façons différentes, nous allons voir les excellents résul- 
tats obtenus sur le 464 avec le jeu graphique basse résolution. 
En effet, en utilisant les caractères graphiques basse résolu- 
tion qui n'existent pas sur le clavier mais que vous trouverez à 
l'annexe 3 du manuel, vous pouvez obtenir des effets ‘prêts à 
l'emploi’ qui seraient très difficiles à réussir en haute résolu- 
tion. 


Avec le programme suivant, nous allons créer un histogramme 
à trois dimensions qui, à mon avis, démontre à merveille le 
côté spectaculaire de l'affichage basse résolution du 464 - le 
genre d'affichage devant lequel toute la famille va s’extasier. 


Dans ce programme, vous allez découvrir les nouveaux con- 
cepts suivants : 


1) L'utilisation du lecteur pour stocker les données du pro- 
gramme. 

2) L'utilisation des caractères graphiques basse résolution. 

3) L'entrée interactive des données. 


Module 2.3.1: : Initialisation 


Un module simple pour déclarer un petit tableau et pour 
demander si les données doivent être chargées à partir de la 
cassette. Nous reviendrons sur ce point ultérieurement. 


MODULE 2.3.1 : LIGNES 2000-2080 


OrAAG REM KKXKAELXEXEEELEEX e 
241 REM #initialisation* 

a 2A2A REM EX EXEREEELEEX e@ 
casa CLS 

e cAdA PRINT TAB 172; "HISTOGRAMME 30"; TAB e 
Ji lessssesssme=-h : PRINT 

4 DIM Hhcz,6i 

e: 20en INPUT " Chargement données à P @ 
artir de la cassette Co/n2":9$ 

@EA7A rh=CHRSC 13) L. ] 
2489 RETURN 


















[ & 
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qi 


Figure 2.3 : Affichage de Histogramme 3D. 


HORIZONTA 


Commentaires 


Ligne 2050 : Le tableau HH sera utilisé pour stocker les don- 
nées de l’histogramme. Comme les nombres de l'instruction 
DIM doivent être comptés à partir de zéro, nous avons ici de 
l'espace pour trois ensembles de sept données. 


Ligne 2060 : Cette entrée (INPUT) permet à un module ulté- 
rieur d'appeler un ensemble de données pour un histogramme 
à partir d’une cassette. 


Ligne 2070 : La chaîne R$ sera utilisée dans le module de 
fichier de données et nous fournirons les explications à 
ce moment-là. 


Module 2.3.2 : Acceptation des 
données 


Dans ce dernier programme du chapitre, nous n'allons pas uti- 
liser l’artifice des instructions DATA pour stocker les infor- 
mations variables. La plupart des programmes pratiques per- 
mettent à l'utilisateur d'entrer ce type d'informations pendant 
l'exécution du programme. On dit que ces programmes sont 
‘interactifs’. Dans le cas présent, toutes les informations peu- 
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vent être rassemblées en une fois ; donc, le module demande 
les informations, les utilise pour en demander d'autres, et 
s'assure que les entrées ne contiennent pas d'erreurs. 


MODULE 2.3.2 : LIGNES 3000-3250 


REF HER EERETER ER EE ERELREREREE ] 
RENM #AcceFtation des données* 
ACG RENM ÆKEEEKEEELREEEERELRENETERES & 
3a3a CLS 
e 3444 PRINT TRES 17): "HISTOGRAMME 30": TAES e 
jrri"snmeesesesmsesss": PRINT 
SAS FRINT"'IlL 4 a 193 unités verticalemen 
Oi":PRINT 
SG64 INPUT "Hombre représenté Far chaque 
unité: "sus: PRINT 
3474 INPUT"Colonnes 1-65: "nd: PRINT 
65454 IHPUT'Blocs 1-33: " nb: FRINT 
3094 PRINT EEKEEEEEE REXEL EEE EEE KÉERELEEE 
@ ÉÉLEEEELEXE" : PRINT 
3194 INPUT "Hom de l'axe des abscisses:" 
: PRINT 
A FOR i=@ TO nb-1 





x] 


=. 
al 
=. 
de 


fs r 
Dot ot EE 06 


DUT) 


REA 


® 
c 
LA] 


; INPUT avg 1 2: PRINT 

NEXT ji 

CLS 

FOR i=4 TO nbh-1 

FOR si TO nd 

tzztkus 

SA MHILE t/uv:19 

3194 FRIAT:PRINT'Entrée du bhloc";:i+i; "wa 

leur"; iii"; 

Oaa INPUT + 
SE IF INTét-uvi5193 THEN FRINT:PRINT'## 

 Waleur trot grande #X#*44" 

STE MEWDC 

ù Hhé 1, it 

HET ji 

FETUEH 


M I BR Gi 


® ® 
QG Go GS Qi Li Qi 
Dh het js de 
8 DE CRT Et Do 
82 2 2 9 2 D? D D D D 9 9 





Commentaires 


Lignes 3050-3060 : Comme avec le programme de courbe pré- 
cédent, chaque unité sur l'axe vertical peut représenter toute 
valeur spécifiée par l'utilisateur. À noter que, travaillant en 
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basse résolution, nous n'avons pas la même souplesse que pré- 
cédemment quant à la taille des unités verticales. La seule 
taille pratique pour chaque unité est la hauteur du carré d'un 
caractère, et le format de l’histogramme permet 19 unités sur 
l'axe vertical. 


Lignes 3070-3080 : Comme nous l'avons dit, l’'histogramme 
accepte trois ensembles de six données. L'affichage se fera sous 
la forme de trois lignes pouvant contenir jusqu'à six barres 
pleines. Chaque ligne de barres sera appelée un ‘bloc’ et cha- 
cune des barres sera appelée ’colonne. 


Lignes 3110-3130 : Comme nous pouvons avoir jusqu'à trois 
blocs, il nous faut aussi jusqu’à trois noms pour l'axe des abs- 
cisses, par exemple prix de vente, coût, bénéfice. À noter que 
les noms doivent être placés dans le tableau NV$ (Nom de 
Verticale) à partir de l'élément 0. Ce tableau n'est pas dimen- 
sionné dans la routine d'initialisation car il n'aura toujours que 
trois éléments. La simple mention du nom du tableau dans le 
programme définit automatiquement le tableau avec dix élé- 
ments (0-9). 


Lignes 3150-3240 : Vous êtes invité à fournir, pour chaque 
bloc, les données correspondant au nombre de colonnes spéci- 
fié. Le programme s'assure que ce nombre n’amène pas le gra- 
phique au-delà de la marque de la 19ème unité. La boucle des 
lignes 3180-3220 s'assure qu'aucun nombre entré ne nécessite 
un histogramme supérieur à 19 carrés de caractères sur l'écran. 
Si vous entrez un tel nombre, le programme vous alerte et vous 
en demande un autre. 


Test 


Entrez les lignes suivantes (certaines feront partie du module 
de contrôle du programme) : 


1030 GOSUB 2000 
1040 GOSUB 3000 
1110 CLS :END 


Puis exécutez le programme que vous venez d'entrer et répon- 
dez de la façon suivante à ses questions : 


Pour le nombre représenté par chaque unité verticale : 1 
Colonnes : 1 

Blocs : 1 

Nom de l'axe des abscisses : HORIZONTAL 

Nom de l'axe des ordonnées 1 : VERTICAL 1 

Bloc 1, valeur 1 ::10 
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Après l'entrée du dernier nombre, l'écran s’efface et le pro- 
gramme s'arrête avec le message "READY". Entrez : 


? UV,ND,NB,NHS,NVS$(0),HH(0O,1) 
Vous devez obtenir : 


1 1 1 
HORIZONTAL VERTICAL 1 10 


Si vous le voulez, vous pouvez exécuter à nouveau le pro- 
gramme en entrant des valeurs fausses. Vous ne devez pas pou- 
voir entrer dans une colonne, une valeur supérieure à 19 fois 
la valeur d'une seule unité de l'axe des ordonnées. 


Module 2.3.3 : Traçage du cadre 
de l'’histogramme 


Comme pour la courbe, il fâut tracer un cadre pour que l'infor- 
mation présentée prenne tout son sens. C'est le rôle du pré- 
sent module, qui utilise des boucles, des variables et la com- 
mande LOCATE pour placer des caractères basse résolution sur 
les positions correctes de l'écran. 


MODULE 2.3.3 : LIGNES 4000-4260 
A REM KEXEEREEKARERERERE 





, 


aa 

4n18 REM #Trasaae du cadre* 

& dAcà REM HEHEEAKEKXLEEEREKKE 
4aa34 CLS 


448 FOR i=@ TO 3 
Sa4aSa LOCATE 6+i,21+i 
AGEA PEN 2:FRINT CHR$e 2132: STRING 29, 
O f$é 143) 3; CHRSE 215) 
añ7@ NEXT i:PEN 1 
@4AGsn LOCATE 6: 1:PRINT STRINGSC 30, CHRSC21 
435 
4ñ9& FOR i=2 TO 24 
41@ LOCATE 6:i:PRINT CHR$C 2145 
m<119 LOCATE 35, i:PRINT CHRSC210) 
412 HEXT i 
4134 FOR i=5 TO 24 STEP 5 
4140 LOCATE 6.1:FRINT STRINGS(20, CHRSC 
ë 5) 
@4154 NEXT i 
4164 LOCATE 1,2S:FRINT nh$ 
@4178 FOR h=@ TO nb-1 
4184 PEN h+l 


Le. 


H 


ax] 
Fr 


e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
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4134 tt$=nvSé hot" L'+STRSE vu D 
4204 FOR i=1 TO LEN Ctté à. 
4214 LOCATE 37+h:i+1: PRINT MIDSttS, i,1) 
O 4224 HEXT ih 
4230 FOR i=@ TO 15 STEP 5 
@44û LOCATE 1,24-i:PRINT USING "##"oi 
4254 HEXT i 
@ 41:56 RETUEH 


® 9 2 9 





Commentaires 


Lignes 4040-4070 : Cette boucle affiche la base de l’his- 
togramme. Vous trouverez la liste des caractères graphiques à 
l'annexe 3 du manuel. 


Ligne 4080 : Une ligne en haut de l'écran, constituée du 
caractère numéro 210 (une barre horizontale), répétée 30 fois. 


Lignes 4090-4120 : Les lignes verticales de marques placées à 
chaque extrémité de l’histogramme représentent les 19 uni- 
tés possibles. 


Lignes 4130-4150 : Quatre lignes au travers de l'histogramme, 
représentant des unités de cinq sur l'axe des ordonnées. 


Ligne 4160 : Libellé de l'axe des abscisses. 


Lignes 4170-4220 : Ces boucles affichent le(s) nom(s) de l'axe 
des ordonnées sur le bord droit de l'écran, avec la valeur repré- 
sentée par chaque unité. La valeur I de la boucle permet de 
faire la navette entre les noms des axes et de changer la cou- 
leur de chaque nom. La couleur de chaque titre correspondra à 
la couleur de l’un des blocs. 


Lignes 4230-4250 : Cette boucle place des nombres sur les 
cinq marques d'unités à gauche de l’histogramme. 


Test 


Entrez une autre ligne : 

1050 GOSUB 4000 

puis exécutez le programme. Spécifiez la valeur de l'unité, 
une colonne et trois blocs. Donnez les trois noms de l'axe des 
ordonnées. Lorsque le programme vous demande de spécifier 
la valeur des colonnes, il vous suffit d'appuyer sur RETURN. 
Le cadre de l’histogramme doit s'afficher, avec le nom de l’axe 
des abscisses en bas, et le nom de l’axe des ordonnées en haut 
et à droite. 
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Module 2.3.4 : Traçage de 
l'histogramme 


Ce module sera bien plus facile à comprendre lorsque vous 
l'aurez entré et que vous aurez vu l'effet produit. Il ne 
repose pas tant sur des principes généraux que sur les résul- 
tats d'expériences pour voir quelles combinaisons de caractè- 
res dans certaines positions fournissent l'effet le plus satisfai- 


sant. 


MODULE 2.3.4 : LIGNES 5000-5220 


GA REM HÉKKEEEEELELEELERAEE 
9414 REM YTrasade des blocsx 
SA2H RENM XÆXKKEKEAEEEEEEEEEEXE 
SA3A FOR h=@ TO nbh-1 
244 PEN h+i 
2454 FOR iznd TO 1 STEF -1 
2864 condition=1:MWHILE INTéhhüh.i uv 
ñ AC condition 
S4r@ FOR jiz1 TO INTéHhhthsi t'uv +1 
OS LOCATE G+dkc i-11+h, 22+h-i 
S49G IF j=1 THEN FEN Z:FAPER G:FRINT CHR 
ef 1452;: CHR$C 215; : PEN h+1:FRINT CHRg$: 143 @ 
n 





519 IF i>1 AND j<INTChhth,i/uvi+1 THEN à 
PRINT CHP$< 2492; " ";:CHRS$C 143: 

el IF =INTCHNC:i2/uv2+1 THEN PRINT C à 
HRSC 209 >; CHRSC 213 2: CHRCE1S ) 
S124 HEXT à 

65134 condition=@:MEHD 
Sid@ HEXT i 

isa MEXT h 
S168 FOF i=à TO nd-1 

@=ire FOR i=1 TO nb 
Si24 LOCATE S+dki+i, 284 
5196 IF j>i OR Hhé£.iï=g OR Ci=1l AND nds 
4 THEN FEH Z:PRINT CHR$(Z215: 
S24à MEXT 

OS2ia NEXT i 

n°22 RETLRH 


Commentaires 


Lignes 5030-5150 : Cette boucle crée le nombre de blocs spé- 
cifiés. 
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Lignes 5050-5140 : La deuxième boucle crée le nombre de 
colonnes spécifiées, de droite à gauche. 


Lignes 5060-5130 : Ces lignes créent une boucle WHILE fic- 
tive pour éviter la section qui trace une colonne si la valeur de 
cette colonne est 0. 


Cette boucle est fictive car, quelles que soient les circonstan- 
ces, elle n'est jamais exécutée plus d'une fois. Pour cela, la 
valeur de la variable CONDITION devient l'une des conditions 
de répétition de la boucle. Le fait de donner la valeur 0 à CON- 
DITION avant d'atteindre WEND à la ligne 5130, garantit que 
la boucle n'est jamais exécutée plus d'une fois. Prenez bonne 
note de cette technique, car le 464 ne dispose pas d'une com- 
mande EXIT permettant de mettre fin automatiquement à 
la boucle. 


Lignes 5070-5120 : Cette boucle crée une colonne. La 
ligne 5080 donne la position de tracé de chaque caractère 
dans la colonne. La position commence à l'extrême droite du 
nombre de colonnes (représenté par I), remonte la colonne 
individuelle (indiquée par ]J) et se déplace de quatre espaces 
vers la gauche pour chaque nouvelle colonne. En outre, lors- 
qu'un bloc est terminé, le bloc de colonnes suivant (représenté 
par H) s'affiche un espace plus bas et à droite du dernier. 


La variable J de la boucle est, comme nous l'avons dit, pré- 
vue pour aller de 1 à la hauteur de la colonne. Lors du pre- 
mier passage dans la boucle, la base de la colonne est créée 
(ligne 5090). Lors des passages suivants, différents caractè- 
res représentent le côté et l'avant de la colonne pendant son 
élaboration, l'instruction LOCATE servant au positionnement. 
Enfin, le sommet de la colonne est ajouté (ligne 5110). 


Lignes 5160-5210 : Lorsque les colonnes sont terminées, les 
bords inférieurs ne sont pas très réguliers, et ces lignes les ren- 
dent plus nets. 


Test 
Entrez une nouvelle ligne : 
1060 GOSUB 5000 


et exécutez le programme. Spécifiez une valeur d'unité de 1, 
trois colonnes et trois blocs. Les noms des axes ne sont 
pas importants, aussi vous pouvez choisir selon vos goûts. En 
réponse aux demandes de valeurs de colonnes, entrez : 


6,12,18,6,12,18,6,12,18 


Des dessins et des nombres 79 


Les trois blocs et les trois colonnes doivent s'afficher claire- 
ment, le sommet de chacune des trois colonnes présentant une 
surface unie du bloc arrière à l'avant. A noter, que lors de la 
lecture des valeurs des trois blocs, vous devez supposer que le 
sommet de la barre la plus avant continue vers l'arrière et vers 
le haut, vers la position la plus arrière, la valeur de la colonne 
étant lue à partir du bord arrière de la colonne tel qu'il appa- 
raîtrait dans le bloc le plus arrière. Dans l'exemple affi- 
ché, vous avez trois colonnes avec les trois barres de chaque 
colonne représentant la même valeur, bien que la barre avant 
soit physiquement plus basse sur l'écran. Cela est nécessaire 
pour donner l'illusion des trois dimensions. 


Faites des essais avec ce programme, pour voir les résultats 
obtenus avec des valeurs différentes. Vous constaterez qu'il 
ne fonctionne correctement qu'à la condition que les données 
d’un bloc ne soient jamais supérieures à celles du bloc situé 
derrière. Ce type de représentation répond à de nombreux cas 
pratiques, par exemple les données de prix de vente/coût/bé- 
néfice, citées précédemment. 


Modules 2.3.5 et 2.3.6 : Stockage 
des données sur cassette 


Nous abordons pour la première fois un sujet que de nom- 
breuses personnes négligent, à leurs dépens, dans leurs pro- 
pres programmes : le stockage des données sur cassette. Vous 
avez certainement constaté que, si vous avez fait une ou 
deux erreurs en entrant le programme, le fait de recommen- 
cer l'entrée des données devient rapidement irritant. En outre, 
pour de nombreux programmes, à quoi sert-il d'entrer les don- 
nées dans l'ordinateur si vous devez vous les rappeler chaque 
fois que vous éteignez le 464? Peut-être avec le programme 
actuel, n'est-il pas totalement irréaliste d'entrer à nouveau les 
données, mais songez à des programmes plus complexes avec 
des centaines de données! 


Vous avez donc deviné l'intérêt d'un magnétophone à cas- 
sette permettant d'enregistrer de façon permanente les données 
entrées, puis de les relire dans le 464 quand elles sont néces- 
saires. Les deux modules suivants accomplissent cette tâche. 


MODULE 2.3.5 et 2.3.6 : LIGNES 6000-7110 





Séaua FEN RARE RACE RER ERRLE e 
SA REM Sauvegarde des donnéesxk 
eftis FEM # Eur cassette # æ 
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pa 


REM HÉEXEXEEEEXERELEELEREMEE 
OFENOUT "Oonnéesararh" 
PRINT #3, nbir$:ndiré:nhbirgius 
FOR i=4 TO nb-1 
PRINT #5, Sci: 

SOA FOR is TO nd 
OEGSA PRINT #3: Hhé is à? 

A9 HEXT j.i 
Qi PEIHT #4: CLOSEQUT 
RETLEH 
RE XÉRHKEEERE EEE ER EREEE LEROUX 
FEM #Charsement des données d% 
RENM # Partir de la cassette *# 
FEM ÆHEXEÉEEREEKEEEREEEEEEERENE 
OPEHIH "Connéesararh" 
INPUT #30 ds nn. 
FOR ji=6 TO nb-1 
INPUT HS nm i 1 
FOR i=4 TO nd 
INPUT #9 Hbc ii 
HEXT ii 
CLOSETIH 
RETUERH 
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Commentaires 


Ligne 6030 : Avant de stocker des données sur cassette, vous 
devez leur réserver une place, lors d'uné opération appelée 
‘ouverture d’un fichier’. Voici le format utilisé : 


OPENOUT « NOMFICHIER » 


Lignes 6040-6090 : Après avoir ouvert (OPEN) le fichier, il 
ne reste plus qu'à y enregistrer des informations. Pour cela, 
nous utilisons une commande spéciale PRINT #. Les données 
transférées dans le fichier comprennent le contenu du tableau 
principal (HH$), plus les variables principales. 


Ligne 6040 : Au sujet de l'instruction PRINT #, il faut noter 
la présence d'un certain nombre de R$ dans la ligne. Peut- 
être vous souvenez-vous que, dans le premier module du pro- 
gramme, R$ était égal à CHR$(13), soit le caractère RETURN 
qui signifie la fin d’une donnée à imprimer. Lorsque vous 
transférez plusieurs données dans un fichier avec une seule 
instruction PRINT #, toutes les données seront traitées 
ensemble, sauf si elles sont séparées par R$. 
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Ligne 6060 : Nous venons d'indiquer que R$ (ou une autre 
variable égale à CHR$(13)), devait être inclus pour séparer les 
données. Aussi, pourquoi ne faisons-nous pas de même pour 
ces deux boucles qui transfèrent le contenu de deux tableaux 
dans le fichier sur cassette ? Tout simplement parce que cha- 
que fois qu’une instruction PRINT ou PRINT # se termine sans 
ponctuation, le 464 fait suivre automatiquement la dernière 
donnée transférée d'un caractère RETURN. C'est pourquoi les 
données sont affichées sur des lignes séparées de l'écran, si la 
donnée précédente n'est pas terminée par une virgule ou 
un point-virgule. 


Ligne 6100 : Il est judicieux de terminer le transfert dans un 
fichier par un simple PRINT # <NUMERO FICHIER vide, 
qui garantit que toute donnée en attente d'affichage dans la 
mémoire du 464 est effacée. Enfin il faut fermer (CLOSE) le 
fichier. L'instruction CLOSEOUT est utilisée pour ur fichier 
dans lequel des données ont été sauvegardées. Si vous ne fai- 
tes pas cela, le numéro de fichier ne pourra pas être utilisé 
ultérieurement et vous risquez même de perdre les données sur 
cassette lorsque le programme essaie une relecture. 


Lignes 7000-7110 : Ces lignes jouent le rôle inverse des lignes 
précédentes : elles lisent des données ultérieurement stockées 
sur cassette. 


Ligne 7030 : Là aussi, il faut ouvrir (OPEN) un fichier. Seule 
différence, nous utilisons ici la forme OPENIN qui indique au 
système que nous voulons prendre les données à partir de 
la cassette. 


Lignes 7040-7090 : INPUT # est l'opposé de PRINT #. A noter 
qu'il n'est pas nécessaire d'utiliser le séparateur R$ lors de 
l'entrée (INPUT) de données. Il est inhérent aux instructions 
INPUT et INPUT A de ne pas reconnaître la réception d'une 
donnée tant que la touche ENTER n'est pas actionnée ou qu'un 
caractère RETURN n'est pas lu sur la cassette. 


«Ligne 7100 : Comme à la ligne 6100, il faut fermer le fichier 
lorsque vous en avez fini avec lui. 


Test 


Pour tester ce module, il vaut mieux attendre d’avoir entré les 
quelques lignes qui terminent le module de contrôle du pro- 
gramme. 
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Module 2.3.7 : Le module de contrôle 


Vous avez déjà entré bon nombre des lignes de ce module dans 
les procédures de test du programme. Il ne reste plus qu’à véri- 
fier que le module est terminé en pointant avec le listage sui- 
vant. 


MODULE 2.3.7 : LIGNES 1000-1110 


FREM HEHEHEEEEE 

REM #Controle* 

REN ÆXKEKXEAEELX 

GASUE 244% 

IF LOMERS A$1="o" THEN GÜSUE 7 
Æ GOSUE 2444 





= 
A 


CEE AE) 


JR da Pa es 10 
cs 
— 


Dodo jee Jet jte jet 
DCR dot CURE UE CU 
D 


® ® 9 


(5 
145 GOSUE dns 
CRE GÜSUE Sa 


1474 VMILE IHKEYS="" 
Siasn WEHD 

1494 LOCATE 1,25: IHPUT " Sauvesarder 
Oz données sur cassette Co-ni";:9%$ 

1148 IF LOMNERS a$z"y" THEH GOSUE AGE 
æ Î 1 14 OR LE EC EHC: 


Test 


Exécutez simplement le programme. A présent, vous pouvez 
saisir les données d’un histogramme. Dès que l'histogramme 
a été affiché, le fait d'actionner une touche affiche le message 
de sauvegarde des données. Avant de répondre ’Y’ (Oui), véri- 
fiez qu'une cassette appropriée se trouve bien dans le lecteur 
(afin de ne pas écraser un programme existant). Lorsque le 
programme a terminé la sauvegarde des données, exécutez-le à 
nouveau et cette fois-ci, répondez par ’Y' (Oui) lorsqu'il vous 
demande si vous voulez charger à partir de la cassette. Le 
même histogramme doit apparaître. Si le test est satisfaisant, 
le programme est opérationnel. 
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Dans ce chapitre, nous étudierons voir de plus près les pos- 
sibilités du 464 dans le domaine sonore et graphique. Le plus 
souvent, vous incorporerez à vos programmes quelques petites 
routines graphiques ou sonores, même si ce n'est rien de plus 
que le module de titre fort simple du dernier chapitre ou le 
signal sonore à deux tons. Parfois, il s'agira de quelque chose 
de plus ambitieux : un dessin complexe ou une mélodie pour 
animer un programme. Dans ces cas, plutôt que d'écrire chaque 
fois une routine séparée de création du dessin ou de la mélodie, 
il vaut mieux disposer de quelques outils permettant de créer 
plus facilement des modèles que vous pourrez lire sur cassette 
pour des programmes ultérieurs. 


Dans ce chapitre, nous vous proposons trois de ces outils qui 
vous permettront de créer des dessins en haute résolution, de 
créer vos propres jeux de caractères et d'écrire de la musique 
sur votre 464. Partant du contenu de ces programmes, vous ne 
serez limité dans l'utilisation du son et du graphisme dans vos 
propres programmes, que par votre imagination. 


Voici les programmes de ce chapitre : 


CARACTERES : Permet de créer des jeux de caractères person- 
nalisés. 


ARTISTE : Un outil pour créer des dessins haute résolution. 


MUSIQUE : Permet d'écrire des mélodies en deux parties sous 
une forme simple, puis de les rejouer. 
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PROGRAMME 3.1 : CARACTERES 


Fonction du programme 


Après avoir vu au chapitre précédent ce qui est possible avec le 
graphisme haute résolution, nous allons voir l’autre aspect, le 
graphisme basse résolution, avec un programme vous permet- 
tant de modifier la forme des caractères affichés par le 464. 


Mais avant de passer au programme proprement dit, voici quel- 
ques mots sur le principe de création et d'affichage des caractè- 
res en mode basse résolution. 


L'écran basse résolution du 464 accepte 25 lignes de 
40 caractères, soit 1000 espaces de caractères. Autrement dit, 
vous pourriez afficher 1 000 éléments séparés sur l'écran, bien 
que certains soient les mêmes, car le 464 ne peut bien entendu 
pas générer 1 000 caractères différents en même temps. Toute- 
fois cette limite de 1 000 n'est que virtuelle. Si vous observez 
de près n'importe quel caractère affiché, vous constatez qu'il 
n'est pas composé de traits pleins, comme le texte que vous 
êtes en train de lire, mais de points. En fait, chacun des 
1 000 espaces de caractères de l’écran est constitué de 64 posi- 
tions de points et c'est la combinaison de ces 64 points qui 
représente chaque caractère affichable par le 464. Ainsi, la 
figure 3.1 présente la structure de la lettre ’A’. 





Figure 3.1 : Agrandissement de l'affichage de la lettre ‘A. 


Les points qui constituent les caractères sont appelés ‘pixels, 
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abréviation de ‘picture elements’ (éléments de dessin): ils 
représentent le plus petit élément que le 464 peut manipuler 
sur l'écran, en modes haute ou basse résolution. 


Ces formes complexes ne sont pas dûes au hasard. Il est évi- 
dent que, quelque part dans la mémoire du 464, quelque chose 
fait que, lorsque vous frappez la touche ’A’, la combinaison de 
points de l'illustration apparaît sur l'écran. En fait, tous les 
caractères que le 464 peut afficher sont stockés sous forme 
de chiffres, dans un bloc de mémoire appelé la ‘mémoire de 
caractères’ ou "ROM de caractères’ (ROM = Read Only Memory 
= Mémoire morte). Chaque caractère dispose de huit octets de 
mémoire, et chacun de ces octets détermine l'endroit où les 
pixels apparaîtront sur une ligne du caractère. Pour cela, la 
valeur de chaque octet représente une ligne en système de 
numération binaire utilisée par le 464. Les nombres sont expri- 
més en puissances de 2, et non de 10, comme dans notre 
système de comptage normal (décimal). 

Ainsi : 

2013006 


dans notre façon de compter habituelle représente : 


(2*10°6)+(0*10°5)+(1*10 4)+(3*10°3)+(0*10°2)+(0*10°1) 
+(6*10°0) 


Mais, en binaire, les seuls chiffres permis sont ’1’ et '0’et un 
nombre tel que : 

11001010 

représente : 

(2°7)+(2°6)+(2°3)+(2°1) en ignorant les zéros. 


Il n'est pas nécessaire de maîtriser la numération binaire; à 
condition de savoir qu'un seul octet de mémoire du 464 peut 
contenir un nombre binaire de huit chiffres, et que tous ces 
uns et ces zéros représentent parfaitement quels pixels sont 
allumés dans une ligne de caractères. Par exemple, la lettre ’A’ 
correspond aux huit nombres binaires suivants : 


00011000 
00111100 
01100110 
01100110 
01111110 
01100110 
01100110 
00000000 
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En y regardant de plus près, vous pouvez encore distinguer la 
lettre A’, représentée par des uns au lieu de points, alors qu'il 
serait bien plus difficile de la reconnaître sous la forme : 


24,60,102,102,126,102,102,0 


qui est le résultat de la traduction des nombres binaires dans 
notre bon vieux système décimal. 


Tout cela revient à dire que, lorsqu'il doit afficher un caractère, 
le 464 explore sa ‘mémoire de caractères’ et utilise ce qu'il y 
trouve pour dessiner le caractère sur l'écran. 


Il en découle que, s’il est possible de modifier le contenu de 
la mémoire de caractères, cela influence directement la forme 
des caractères affichés. Nous pouvons donc personnaliser des 
lettres, des caractères graphiques, en somme tout ce qui rentre 
dans le carré de caractères élémentaire de 8%8. 


Malheureusement, la mémoire de caractères ne peut pas être 
modifiée. Elle fait partie de la mémoire morte (ROM = Read 
Only Memory) intégrée dans le 464. Par contre, nous pouvons 
la copier ailleurs dans la mémoire vive (RAM), où nous pour- 
rons la modifier, puis utiliser les nouvelles données avec la 
puissante commande SYMBOL pour modifier les caractères eux- 
mêmes. Ainsi, nous pouvons manipuler le jeu de caractères à 
notre gré. C’est le but du programme suivant. 


Figure 3.2 : Affichage de Histogramme 3D. 


L'affichage présente l'écran pendant le mode d'édition de 
caractères, avec une lettre ‘A’ qui a subi une rotation de 
90 degrés. 
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étiuméro de caractère : 65 


Pour inverser 
Pour mirer 
‘r' pour retourner 
e ‘1* Four remlir le carré 
‘A4’ Pour vider le carré 
Pour tourner 
‘P' Pour Placer en mémoire 
Pour sauvegarder sur cassette 
Pour charaer à Partir cassette 
Pour normaliser le jeu de caractère 
‘e‘ Pour terminer 
e Touches curseur Pour déPlacer 





Module 3.1.1 : Le module de contrôle 


En général, nous ne présentons pas un module de contrôle 
avant l'opération d'entrée d’un programme, mais celui-ci est 
court et, en son absence, le programme lui-même nécessiterait 
un GOSUB pour être lancé. 


MODULE 3.1.1 : LIGNES 10000-10050 





Qi FENM ÆHEFEEELEE & 
Ain REM £lControlet 

aies REM #ELEKAEEEE a 
LU: GOSUE 118a4 
ina GOSUE 1:44 

Siaësa CLS: END e 





Module 3.1.2 : Création du nouveau 
jeu de caractères 


Ce module accomplit la tâche présentée dans l'introduction du 
programme : le transfert des données de caractères dans une 
partie de la mémoire où nous pourrons les manipuler. Il s'agit 
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en fait d’un tableau appelé C%, qui nous donne toute la sou- 
plesse nécessaire pour stocker et changer les données. 


MODULE 3.1.2 : LIGNES 11000-11190 


QiidAn REM ÆXKKEXEKELKELKEX e 
11414 REM #Initialisationx 
e11924 REM KXKEEXKEXERERANE » 
11434 CLS:PEN 1:PRINT "Premier caractère 
En Far l'utilisateur":JINPUT "32-25 e 
Giifc 
11Q4@ IF FEcSE OR Ffc:eSS THEN PRINT " #&# 
His LIMITES :RECOMMENCEZ *##4":GOTO 11 @ 
3 
O11954 SYMEUL AFTER fc 
11G6G IF in=f THEN ch=fc:DIM 37%, txt75 
@:=: 253.7 ):inzl 
11974 menu$b="imrintrslxe"+CHRSe ZA + CHRS 
e L 241 2+CHRSC 242 +CHRSC 243 à 
11964 MODE & 
e!1557 LOCATE 36,14:FRINT "ATTEHDEZ" 
11984 LOCATE 1,1 
1149û FOR izfc TO 255 
61198 PRINT CHR& i ): 
1111@ NEXT i 
@11124 FOR i=4 TO 255-fc 
111: FÜR i=à TO 7 
@11149 cXCfc+i, ji )=PEEK(48*x1024+i#+2448+; 2 
11154 NEXT ji 
e!1152 NEXT i 
11174 MODE 1 
11159 a$="r" 
611199 RETURN 





2 2 2 2 2 2 9 9 9 


Commentaires 


Lignes 11030-11050 : Le 464 vous permet de définir tout 
caractère dans la limite de 16 à 255. Mais, vous ne pouvez en 
définir plus de 16 que si vous en manifestez l'intention par 
la commande SYMBOL AFTER. Cette commande suivie d'un 
nombre signifie qu'à partir de ce moment, vous voulez pouvoir 
modifier tout caractère à partir de celui qui est représenté par 
le nombre suivant SYMBOL AFTER, jusqu'au caractère numéro 
255, avec la commande SYMBOL que nous allons voir dans 
un instant. Ces lignes vous permettent d'établir le premier 
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caractère en mesure d'être redéfini, entre le caractère numéro 
32 et 255. Normalement, le 464 vous permet de redéfinir 
16 caractères, entre le numéro 240 et le numéro 255. 


Ligne 11060 : A l'exception d’un cas spécifique d'utilisation du 
programme, cette ligne permet d'établir le tableau principal, 
C%, qui contiendra les données de caractères (256 lignes avec 
huit nombres par ligne) et deux tableaux utilisés pour la mani- 
pulation temporaire d'un caractère individuel. 


Ligne 11070 : Cette ligne est importante mais nous explique- 
rons sa signification lorsque nous arriverons au module qui 
traite du menu de programme. 


Lignes 11080-11170 : Une belle astuce. Plutôt que de prendre 
les données en mémoire, il est bien plus simple d'aller les 
chercher sur un endroit beaucoup plus évident : l'écran lui- 
même. L'avantage est clair : dans le futur, si vous voulez obte- 
nir les données de caractères sélectionnés, il vous suffit d'affi- 
cher ces caractères sur l'écran. Pour cela, nous passons d’abord 
en MODE 2, le mode haute résolution. La raison étant qu'en 
MODE 2, l'agencement des pixels sur l'écran correspond exac- 
tement au modèle décrit dans l'introduction du programme. En 
MODE 1, les chiffres binaires individuels ne sont pas repro- 
duits exactement par les pixels sur l'écran, car deux pixels sont 
affichés horizontalement pour chaque chiffre binaire. 


Le mode étant changé, le travail suivant consiste simplement à 
afficher tous les caractères à partir de FC (le premier caractère) 
Œirst Character) spécifié par l'utilisateur, jusqu’à 255, de la 
première position de l'écran, vers l'avant. La deuxième paire de 
boucles (lignes 11120-11160) lit ensuite les octets de mémoire 
qui donnent l'affichage sur l'écran. Cette opération n’est pas 
aussi directe qu'elle pourrait, en raison de l'agencement de la 
mémoire d'écran. Le bloc de mémoire qui reçoit le contenu de 
l'écran est agencé de telle sorte (nous n’en donnons pas les rai- 
sons ici) que, si vous voulez trouver les huit octets qui cons- 
tituent le caractère de l'angle supérieur gauche (en MODE 2), 
vous devez examiner l'octet de mémoire 49152 pour l'octet 
supérieur du caractère, puis l'octet 51200 (49152+2048) pour 
le suivant vers le bas, et ainsi de suite par intervalles de 
2048 octets pour les huit octets. Le caractère suivant à droite 
commence à l'octet 49153 et progresse par intervalles de 
2048 octets. Lorsque nous avons atteint la première ligne de 
caractères, un déplacement d'un octet vers l’avant nous amène 
au premier octet du premier caractère de la deuxième ligne. Si 
tout cela ne vous paraît pas encore très clair, essayez d’entrer 
le petit programme de test suivant : 
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10 MODE 2 

20 FOR I1=49152 TO 49152+1024 
30 POKE 1,255 

40 NEXT I 


Vous verrez que, bien que vous manipuliez (POKE) la mémoire 
d'écran par intervalles d'un octet, la ligne obtenue par l’allu- 
mage des pixels, longe la partie supérieure des lignes de 
caractères. 

Cela étant, vous pouvez voir ce qu’accomplit la ligne 11140, 
qui lit un à un les octets des données de caractères à partir de 
la mémoire d'écran. 


Ligne 11180 : Cette ligne définit une variable utilisée pour 
stocker les réponses du menu, afin que le programme ne se ter- 
mine pas accidentellement, à la première exécution. 


Module 3.1.3 : Affichage d'un 
caractère agrandi 


Ce programme a pour but de faciliter l'édition (modification) 
de caractères. Une méthode consiste à afficher une version 
agrandie d'un caractère spécifié afin de pouvoir y déplacer 
un curseur. Ce module permet de spécifier puis d'afficher 
le caractère. 


____ MODULE 3.1.3 : LIGNES 12000-12220 


QE RENM ÆXELETETEEEREREEEELEREET 
ca1ia FEM *Affichanñe de La grille“ 


@ ln REM HEEXELEEEEREE EEE EREREEE 
12934 LHILE a$é"e" 
e1294 CLS PEN 1 
£4SG FOR i=û TO 7 
12064 IF fait=à THEN a%i ecxCch, i à 
Bicar7e bÉ=RICHTSC BINGE LE à 13,80 





12684 FOR i=1 TO & 
O1: IF MID$Ch$. j.12="1" THEN FRINT CHE @ 
$C231): ELSE PRINT " "; 


@iini NEXT : e 
12119 PEN S:PEINT CHARGE 1432: PFEH 1 

ali:lisn HEXT j'fait=i @ 
121359 FEH S:PEIHT STEIHGSES, CHESC 145535 P 


12144 LOCATE 25,5: PRINT CHR chi 
12154 PEN 3: LOC ‘ATE 1.11 
Si2iég FRINT “huméro du caractère:"ich:FR e 
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INT 
@iii7a IF a$="r" THEN INPUT "Huméro de dé @ 
Flacement Fointeur LE Pour rédéfinir à 
@ im: ch=cht+rm e 
12186 IF chifsc THEM chefs 
e!:it IF ch255 THEH chzzfs e 
12208 IF mmz4 THEN GOSUE 13444 ELSE fait 
e 
L.) 


= 
Oi5516 WEND 

12224 RETURH 
ae 





Commentaires 


Lignes 12040-12120 : Les données d'un caractère particulier 
sont lues en A%, à partir du tableau C%, puis utilisées pour 
afficher une version agrandie du caractère. La méthode pour 
cela consiste à utiliser d'abord BIN$ pour traduire chaque octet 
des données de caractères en une suite de 1 et de 0. Puis un 
caractère cercle plein (CHR$(231)) est affiché pour représen- 
ter la position d'un 1 dans la suite. Le motif 8*8 est entouré 
d'une bordure pleine constituée de CHR$(143). Pour finir, la 
variable DONE est définie à la fin, de sorte que, si le module 
est répété sans modifications du caractère, les données ne sont 
pas recopiées en A%. 


Ligne 12140 : Une version en taille normale du caractère est 
placée à droite de la version agrandie. 


Lignes 12170-12190 : A la première exécution du programme, 
le caractère affiché sera le premier de la gamme qui peut être 
redéfini, telle qu’elle figure dans la variable FC. Ces lignes per- 
mettent de déplacer le caractère visé, à l’intérieur des limites 
FC et 255. 


Test 


Exécutez le programme et spécifiez 65 comme premier 
caractère défini par l'utilisateur. Après l'affichage de la gamme 
des caractères et une pause permettant le transfert des don- 
nées, une version agrandie de la lettre ’A’ doit apparaître dans 
l'angle supérieur gauche. Vous pouvez aussi explorer le jeu de 
caractères et examiner tout caractère à partir de ‘A’. À noter 
que vous ne pouvez encore rien faire sur le caractère affiché. 
Pour cela, nous frapperons ‘0’ pour appeler un module sui- 
vant. Normalement le programme s'arrête lorsque le mode ‘0’ 
est appelé, mais, dans ce module, vous pouvez faire la même 
chose en appuyant sur ESC. 
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Module 3.1.4 : Un curseur défini par 
l'utilisateur 


Un module simple permettant d'afficher une imitation de cur- 
seur à l'endroit choisi. 


MODULE 3.1.4 : LIGNES 14000-14110 


Qianan FEM HÉLKEREEELEEERERAEHÉEEX 
14914 REM *Affichage du curseur* 
Oil REM KÉHHEEEEEEEEELEEEELEEEX 
14H25 bÉERIGHTSCEINSE 256+a%0 4 23,80 
14454 LOCATE x+1:4+1:PAPER Z:PFEN 1 
14440 IF MIDSC bS,x+1,12="1" THEN PRINT C 
HR#(Z231:; ELSE PRINT " "; 
1485@ a$="" 





14968 WHILE a$="" 
014974 a$=LOUNERSC INKEYS à 

14484 WEHC 
014494 LOCATE x+1,u+1:PAPER 

14100 IF MICSÉ ES, »x+1,1:="1" THEN PRINT C 
@HRS2S1);ELSE PRINT " ":; 

14114 RETURN 


RE) 


æ 


Commentaires 


Lignes 14030-14040 : L'apparence du curseur est obtenue en 
changeant les couleurs PAPER et INK pour simuler la présence 
du curseur normal, puis en réaffichant soit un espace soit le 
petit cercle plein utilisé pour afficher les versions agrandies 
de caractères. 


Lignes 14050-14080 : Etat d'attente jusqu'à ce qu’une touche 
soit actionnée. 


Lignes 14090-14100 : La position de caractère où se trouve le 
curseur s'affiche à nouveau en couleurs normales. 

Test 

Entrez : 

RUN 14000[RETURN] 


Un carré de curseur doit apparaître dans l'angle supérieur gau- 
che de l'écran. Frappez une touche et le programme s'arrête 
avec un message d'erreur ‘Unexpected RETURN’ (RETURN 
inattendu). 
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Module 3.1.5 : Entrée des 
commandes 


Ce module combine les fonctions suivantes : présentation d'un 
menu, déplacement du curseur clignotant, coloriage ou efface- 
ment des pixels agrandis, et acceptation des commandes pour 
manipuler le caractère en cours. Le menu donne toutes les 
indications nécessaires à l'utilisation. Le seul aspect origi- 
nal du module réside dans la façon dont les instructions 
sont acceptées. 


MODULE 3.1.5 : LIGNES 13000-13220 


FREM HKEXEEEMEEMERAEEEEREEEREELEEX 
FEM Xkedéfinition d'un caractèrex 
RENM ÆREELELELREEEE EEE EEE EEE ÉREEEEEE 
LOCATE 1.13:PRINT STRINGSE 4," "5 
LOCATE 1:13. 

FRIHT "‘ji' pour inverser" 

FRINT ‘n° Four mirer" 

PRINT "Fr" Pour retourner" 

PRINT "‘1" Pour remplir le carré" 
PRINT "‘G" pour vider le carré" 
PRIHT "°° Pour tourner" 

FRINT "Fr" pour Flacer en mémoire" 
PRINT Ms" Pour sauveñarder ŒUr Ca 





ct RS Ga D 0 0 


Din Ci Gi Qi Oo CO Ci Ci a Loi Ce dd 10 dt 


torse il pe hs pe NU ES St St 
Bu Et Pie di 0 00 © Ts CN La di Lei de 1 
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Commentaires 


Lignes 13170-13210 : Vous vous souvenez sûrement que, dans 
le module d'initialisation, nous avons créé une chaîne plu- 
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tôt étrange appelée MENU$. Cette ligne en est la raison. 
Ensemble, elles permettent de traduire en un nombre un 
simple enfoncement de touche, grâce à INSTR. La position 
d'un caractère dans MENUS$ est la valeur qui sera donnée à Z 
et utilisée pour ON Z GOSUB sur la ligne suivante. La variable 
RET indique au module s'il est nécessaire de retracer tout 
l'affichage. Si, au retour de l'exécution, RET est égal à 0, le 
caractère agrandi n’est pas retracé, d’où un gain de temps. 


Test 


Exécutez le programme. Après que le ’A' ait été tracé, vous pou- 
vez entrer 0 et voir le menu affiché. Aucune des commandes 
n'aura d'autre effet que d'arrêter le programme avec un mes- 
sage d'erreur. 


Module 3.1.6 : Retour du mode 
édition 

La touche 'R’ frappée à partir du menu principal retourne l'exé- 
cution au module précédent, pour vous permettre de traiter le 
caractère suivant. 


MODULE 3.1.6 : LIGNES 17000-17030 







1 FEM ÆKKEHEES e 
{a FEM #Retour# 
A FEM YEXKEEKEX e 
H ret=i:RETURN 


Test 


Vous êtes à présent en mesure de passer du menu principal au 
module de manipulation des caractères, et inversement. 


Module 3.1.7 : Déplacement du 
curseur 


Après nous être donné un curseur, nous allons pouvoir le 
déplacer, tout simplement en modifiant les valeurs des varia- 
bles X et Y des coordonnées du curseur. 


MODULE 3.1.7 : LIGNES 26000-29040 





eau REM *EHEEE e 
26014 REM *Haut# 
e 6928 REM HEKEEX | e 
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IF y>4 THEH uzs-—] 
FETUEH 

FEN K£HHE 

FENM #Eas* 

REM #XHXE 

IF 4<7 THEH y=u+i 
FETLRH 

REN ÆHEXEEEE 

FEN #Gauche*# 

FENM ÆHÆXEHEE 

IF x24 THEH xax 
RETLUEH 

RENM #XHEXEREX 

REM #Droitex 

FENM XXXEH#HEXE 

IF x£F THEN x=x+i 
FETURH 
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Test 


Le menu principal étant affiché, vous pouvez à présent dépla- 
cer le curseur sur le caractère agrandi, bien que vous ne puis- 
siez pas encore toucher au dessin. 


Module 3.1.8 : Coloriage et 
effacement 


En entrant ‘1’ ou ’0’ à partir du menu principal, vous pouvez 
colorier ou effacer un pixel individuel sur le dessin agrandi. 
Dans ce module, nous utilisons pour cela les opérateurs logi- 
ques AND et OR. 


MODULE 3.1.8 : LIGNES 18000-19060 


O1S00n REM ÆHEKEEEEEXÉEELELENAEXE 
18414 FEM *XColoriage du carréx 
elfe REM KXKEKEEEEEKERAENANAAE 
18458 au za ui OUR 27x00 
e1:24% LOCATE x+1,1u+1 
16904 FRINT CHR$&cZS1 2) 
16464 RETURN 
11007 FEM #HKKEKEXEXELELEEEENÉEEX 
12919 REM *Effacement du carréx 
19924 REM HÉEKXEKERÉERERÉEFIRNEX 
19934 444 =axçyui OR 2655-24 7-x 5 
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@12548 LOCATE x+1,y+1 e 
13456 FRINT " " 
e 19H69 RETURN e 
Commentaires 


Ligne 18030 : L'utilisation de OR est une méthode courante 
pour donner la valeur 1 à un ou plusieurs chiffres binaires d’un 
nombre. OR compare deux nombres binaires, puis en pro- 
duit un troisième où chaque chiffre binaire reçoit la valeur 1 
si le chiffre binaire de l’un des nombres d'origine était 1. Par 
exemple, avec les deux nombres d'origine : 


124 = 01111100 
et 
3 = 00000011 


le résultat serait 127, ou 01111111, puisque chaque chif- 
fre binaire avait la valeur 1 dans l’un ou l’autre des deux nom- 
bres. 


Si nous voulons imposer la valeur 1 à un chiffre binaire par- 
ticulier, numéro N en lisant de droite à gauche, il nous suffit 
d'utiliser OR 2N. 


Dans le cas du programme, le fait de donner la valeur 1 à un 
chiffre binaire particulier revient à allumer un pixel, puisque 
l'état de ces derniers est déterminé par l’état des chiffres binai- 
res des huit nombre qui constituent le caractère. 


Ligne 19030 : L'opposé de OR, pour ce qui touche à l’activa- 
tion (valeur 1) et la désactivation (valeur 0) des chiffres binai- 
res individuels, est AND. Lorsque deux nombres sont reliés par 
AND, les chiffres du nombre résultant n'ont la valeur 1 que 
dans les positions où les deux nombres d'origine avaient cette 
même valeur. Ainsi, si nous relions 124 et 3 par AND comme 
ci-dessus, nous obtenons 0, puisqu'aucun des chiffres binaires 
n'est activé dans les deux nombres. Le fait de relier par AND 
un nombre entre 0 et 255 et 255 ne présente aucune différence, 
puisque dans le nombre 255, chacun des huit chiffres prend la 
valeur 1. Toutefois, chacun des chiffres de 255 peut être désac- 
tivé (valeur 0) en soustrayant 2N de 255, où N est le numéro 
du chiffre qui doit recevoir la valeur 0. Par conséquent, si vous 
reliez par AND un nombre, X, avec 255-2N, le chiffre binaire 
N prend la valeur O0 dans X. 


Du point de vue du programme, cela équivaut à effacer un pixel. 
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Test 


En mode d'édition de caractères, vous pouvez déplacer le 
curseur et colorier (remplir) ou effacer (vider) des pixels 
à volonté. 


Module 3.1.9 : Création d'un 
caractère inversé 


Nous passons à présent à une suite de trois modules qui faci- 
litent l'édition d’un caractère, en opérant sur la totalité du 
caractère; ainsi, vous pouvez le refléter (mirer) ou lui faire 
subir une rotation de 90 degrés. Le module en cours crée sim- 
plement l'inverse du caractère existant. Tout pixel activé sera 
effacé, et toute position vierge recevra un pixel. Cela est obtenu 
par l'inversion des 1 et 0 binaires des octets qui constituent 
le caractère. 


MODULE 3.1.9 : LIGNES 15000-15060 


ENT HÉHELELRLEEEE 
REM XInversionx 
REF ÆÆÉEEEEEEEEE 
FOR izf TO 
AE 1 era 1 1 
HET 3j 
retz]:RETUEH 
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Test 


Exécutez le programme et appelez le mode édition. Lorsque le 
menu est affiché, frappez 'l' pour voir un caractère inverse 
créé. Puis frappez ‘I’ à nouveau pour ramener le caractère à 
son état initial. À noter que cela ne concerne que le caractère 
agrandi et non pas celui de taille normale à droite du carré de 
8*%8. Le caractère de taille normale ne changera que si vous 
décidez d'entrer votre caractère édité en mémoire, dans un 
module ultérieur. 


Module 3.1.10 : Création d'une 
réflexion (effet de miroir) 


Ce module prend le caractère affiché et le présente comme s'il 
était reflété dans un miroir. 
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MODULE 3.1.10 : LIGNES 16000-16100 


FEN ÆÉÉEEELSE 

RE £biroir# 

EE HXEEELEE 

FüR i=à TO 7 
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! HEXT à ( 
HEXT ji 
ret=l:RETURH e 


Commentaires 


Lignes 16060-16080 : Dès que chaque octet du caractère est 
extrait de A% et transformé en une chaîne binaire, il est lu de 
gauche à droite comme une chaîne. Donc, lorsque la variable J 
de la boucle a la valeur 0, le chiffre lu représente 128. Donc, si 
le premier caractère de la chaîne binaire est un 1, il est trans- 
formé en 20, soit 1 en termes décimaux. Si le dernier caractère 
de la chaîne est un 1, il est traduit en 27, soit 128 en termes 
décimaux. Ainsi, le nombre binaire est retourné ‘d'avant 
en arrière’. 


Test 


Exécutez le programme et appelez le menu d'édition. Frappez 
‘M' et, après un court instant pendant lequel le caractère est 
copié dans le tableau, vous devez le voir en réflexion. 


Module 3.1.11 : Rotation d'un 
caractère 


Imaginez que le caractère que vous éditez est imprimé sur une 
feuille de plastique transparent. À partir de là, à l'exception 
du maintien dans un angle particulier, tout ce qui est possible 
avec la feuille plastique peut l'être par une combinaison de 
réflexion et/ou de rotation du caractère de 90 degrés, une ou 
plusieurs fois. Le module en cours utilise à nouveau le tableau 
T% mais cette fois-ci pour faire tourner le caractère dans le 
carré 8*%8, de 90 degrés vers la gauche. 
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MODULE 3.1.11 : LIGNES 20000-20130 


BEM KHELELELEE 
FENM %kRotation* 
REM ÆXEXEXEEEX 

A FOR if TO 7 
BHERIGHTSÉEINSC 256+a%6 1 23.40 

A FOR izA TO 7 
IF i=4 THEN té j ï=@ 

car LA jistke i 24271 XVALEMIDSC HS, j+1, 12 





4 
O 2489 HEXT ji 
CASA HEXT i 
FOR if TO 7 
2114 aktirstx( it 
efiif HEXT i 
24134 retz=1:RETURN 
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Commentaires 


Lignes 20050-20090 : Cette boucle copie les chiffres binaires 
de l’un des huit nombres de A%, dans le tableau tempo- 
raire T%. A noter toutefois que, alors que les chiffres binaires 
de chaque nombre de A% sont lus de gauche à droite, ils sont 
copiés dans T% de haut en bas : le premier chiffre binaire de 
chaque nombre de A% va dans le premier élément de T%, le 
deuxième chiffre binaire de chaque nombre de A% va dans le 
deuxième élément de T%, etc. De sorte que, la colonne de gau- 
che de chiffres binaires du caractère d'origine devient la ligne 
supérieure (horizontale) de T%, d'où une rotation de 90 degrés 
du caractère. 


Lignes 20100-20120 : Le caractère réorienté est relu de T% 
dans A%, la zone de travail principale. 


Test 


Exécutez le programme, appelez le menu d'édition et frappez 
’T'. Après un bref instant, le caractère est réaffiché et tourné de 
90 degrés. Si vous frappez 'T’ trois fois encore, le caractère doit 
retrouver sa position initiale. Faites quelques essais en combi- 
nant l'effet de miroir, la rotation et l'inversion, jusqu'à ce que 
vous soyez familiarisé avec ces techniques. 
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Module 3.1.12 : Entrée d'un 
caractère édité en mémoire 


Jusqu'à présent, vous avez pu manipuler le caractère agrandi 
dans le carré 8%8, peut-être jusqu'à ce qu'il n'ait plus aucun 
point commun avec sa présentation de départ. Tout cela n'a 
rien changé à la version de taille normale du caractère affiché 
à droite du carré 8%8. Les modifications apportées jusqu'ici 
n'ont pas encore été transférées dans la mémoire des caractè- 
res et elles ne le seront que lorsque votre création vous con- 
viendra. Dès que vous avez ce que vous souhaitiez, ce module 
va intégrer le motif inscrit dans le carré, dans votre jeu de 
caractères personnalisé. 


MODULE 3.1.12 : LIGNES 21000-21070 
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Commentaires 


Ligne 21040 : Le contenu de A% (le tableau dans lequel toutes 
les manipulations de données de caractères ont lieu) est copié 
dans la position de C% correspondant au caractère en cours. 


Ligne 21060 : Les données de A% sont utilisées avec la puis- 
sante commande SYMBOL pour affecter de nouvelles valeurs 
aux huit octets qui enregistrent la forme du caractère en cours. 


Test 


Exécutez le programme et déplacez le pointeur sur le 
caractère 65, la lettre ‘A’. Passez en mode édition et faites une 
rotation du caractère. Puis, frappez ’P' et observez l'écran. Le 
"A à droite du carré 8*%8 se trouve sur le côté, parce que le 464 
prend ses informations sur les caractères dans votre jeu person- 
nalisé. Conseil : N'éditez les caractères que si vous voulez un 
texte personnalisé; sinon, contentez-vous d'éditer les caractè- 
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res graphiques. Si vous apportez trop de modifications aux let- 
tres et aux chiffres, vous aurez peut-être du mal à comprendre 
ce que le programme essaiera de vous dire! 


Module 3.1.13 : Stockage du jeu 
de caractères 


Le jeu de caractères étant édité, nous voulons pouvoir le con- 
server pour le réutiliser ultérieurement, afin de ne pas avoir 
travaillé inutilement. Ce module stocke vos caractères person- 
nalisés sur cassette. 


MODULE 3.1.13 : LIGNES 22000-22110 
FENM DR are 
CEA 


FENM Sauvegarde sur © 
EM dudit 
LOCATE 1.2d:OFEMOUT "Données car" 
FPRIHT #3,fc 

FOR izfc TO 2% 

FOR jizû TO 7 

FRIMT #3, cac i, ii 

HEAT 

HEXT ji 
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retz1i:BRETUEH 
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Commentaires 


Lignes 22040-22090 : Pour gagner du temps lors du charge- 
ment et de la sauvegarde, seuls les caractères redéfinis à par- 
tir de FC sont sauvegardés. En effet, il est inutile d'attendre 
que les données des 256 caractères soient sauvegardées, si une 
vingtaine seulement ont été modifiées. Les données sont sau- 
vegardées sous la forme des nombres stockés dans C%. 


Test 


Après avoir modifié quelques caractères et les avoir mis en 
mémoire, appelez ce module pour les sauvegarder sur cassette. 
La seule vérification pour l'instant consiste à s'assurer que 
ce transfert s'effectue sans aucune erreur. Après avoir entré 
le module suivant, vous pourrez recharger le jeu de caractères 
pour vérifier qu'il a été correctement stocké. 
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Module 3.1.14 : Rechargement d'un 
jeu de caractères 


Ce module permet de recharger le jeu de caractères précédem- 
ment stocké sur cassette. Tel qu'il est, ce module peut être uti- 
lisé pour recharger un jeu de caractères provenant d'autres pro- 
grammes. Après avoir reconçu votre jeu de caractères et l'avoir 
stocké sur cassette, il vous suffit d'inclure ce module (avec une 
renumérotation correcte éventuellement) dans le programme 
qui va utiliser les nouveaux caractères. Lisez le jeu de caractè- 
res et le voilà installé dans le nouveau programme. 


MODULE 3.1.14 : LIGNES 23000-23170 


RENT ÆXEEKALEKAXEEXAEEEEEREEE 
REN #Charaement à Partir def 
FEN # la cassette # 
1 REM KÉÆEEEEEEEEEEEL EN ELEEEEUÉE 
LOCATE 1.24 
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IHPUT #3. fc 
FOR jzfc TO 25 
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Commentaires 


Lignes 23040-23110 : Le caractère de départ est lu sur la cas- 
sette et comme il ne correspond peut-être pas à la valeur en 
cours, le contenu de la cassette est relu en C%, à partir de la 
position EC. 


Lignes 23120-23150 : Les données étant retournées en C%, 
SYMBOL AFTER permet de redéfinir le jeu de caractères. Nor- 
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malement, cela pourrait être accompli dans la boucle de char- 
gement des données, chaque caractère étant redéfini après la 
lecture de ses huit octets. En pratique, en raison d'une anoma- 
lie probable de la ROM du 464, la commande SYMBOL AFTER 
n'est apparemment pas reconnue pendant qu'un fichier est 
ouvert à destination du lecteur. Nous vous conseillons de véri- 
fier si votre propre machine présente cette anomalie. 


Test 


Vous pouvez à présent recharger le jeu de caractères que vous 
avez sauvegardé (SAVE) pendant le test du module précédent ; 
il vous suffit de frapper ‘L’ en mode édition. Avant de rechar- 
ger ce que vous venez de sauvegarder, vous devez avoir réins- 
tauré le jeu de caractères normal (non modifié), sinon il 
sera impossible de détecter si des caractères différents ont été 
chargés à partir de la cassette. 


Module 3.1.15 : Restauration du jeu 
de caractères 


Il se peut que vous considériez être allé trop loin dans vos redé- 
finitions de caractères et que vous souhaitiez restaurer le jeu 
de caractères original. Pour cela, il vous suffit de taper ‘’X' sur 
le menu principal. Le module d'initialisation reprend la main 
pour que le caractère de départ puisse être redéfini. Si vous 
voulez redonner au 464 son état par défaut, le premier 
caractère doit être 240. 


MODULE 3.1.15 : LIGNES 24000-24040 


QE REM ÆHXKEEEEEEEEEEEREELEX 
s4di4 REM £Hormaliser le eut 
cdfis REM # de caractères *# 





cdGet REM KÉEÉELELRELETEEEEEET 
24H36 GOSUE 11944 
San fait=uiret=1:RETURH 


Test 


Exécutez le programme et modifiez un caractère, en stockant 
la définition en mémoire. Puis frappez 'E’ et vous constaterez 
que ce caractère a retrouvé son état initial. 
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Module 3.1.16 : Fin du programme 


En frappant ’E’ à partir du menu principal, vous mettez fin au 
programme sans restaurer le jeu de caractères d’origine. 


MODULE 3.1.16 : LIGNES 25000-25030 
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MEN #Finx 
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rets]:RETURH 
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Test 


Modifiez un caractère, placez le caractère redéfini en mémoire, 
puis mettez fin au programme en frappant ’X’. Toutes les 
modifications apportées doivent encore faire partie du jeu 
de caractères. 


PROGRAMME 3.2 : ARTISTE 


Fonction du programme 


Vous avez sûrement vu quelques affichages impressionnants 
créés par des logiciels de CAO (Conception Assistée par Ordi- 
nateur). D'un doigt léger, l'ingénieur ajoute des lignes et des 
formes à des dessins complexes, ou efface ce qui existe déjà. À 
sa façon, ARTISTE va tenter d’'imiter ce travail. Même s’il est 
moins élaboré, il vous permettra de créer des dessins comple- 
xes bien plus grands qu’un simple écran, en utilisant l'écran, 
comme une fenêtre mobile permettant d'examiner certaines 
parties ou de rétrécir la totalité de la zone pour pouvoir 
la visualiser entièrement. Vous pouvez ajouter ou supprimer à 
volonté des lignes, des cercles et des rectangles, et stocker 
l'ensemble du dessin sur cassette pour utilisation ultérieure. 


Voici les nouveaux concepts introduits dans ce programme : 


1) Un curseur clignotant en haute résolution, défini par l’uti- 
lisateur. 

2) Stockage des dessins sur cassettes. 

3) Définition et traçage de formes géométriques. 
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Module 3.2.1 : Initialisation 





Figure 3.3 : Affichage obtenu avec Artiste. 


Voici un module d'initialisation standard qui définit les cou- 
leurs de l'écran, deux fenêtres et une gamme de variables dont 
nous parlerons dans les commentaires du programme. 


MODULE 3.2.1 : LIGNES 11000-11250 
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11254 haut RSR Un 
11248 DIM aïe 19n@, 4,612 ucto e 
11ZS% RETURN 





Module 3.2.2.: Deux curseurs de 
traçage 


Dans tout programme de dessin, il est très important que l'uti- 
lisateur sache où se trouve la position de traçage actuelle. C’est 
le rôle d’un curseur de type quelconque, qui indique la posi- 
tion en cours sur l'écran. Ce programme utilise deux curseurs 
pour définir, par exemple, les deux extrémités d'une ligne tra- 
cée, les deux angles opposés d’un cadre et ainsi de suite. Les 
deux curseurs peuvent être déplacés sur le dessin avec les tou- 
ches de contrôle du curseur, sans que le contenu de l'écran en 
soit affecté. 


MODULE 3.3.2 : LIGNES 12000-13080 





Gicdan REM KXEXEXELEEE _.] 
12414 FEM #Curseur 1% 

alstet REM £ÆXXKEXEEEEEX & 
12454 FRIHT over$ 

e 12448 FLOT CAP ix-168 4€ BG #P 1x & 
12454 CRAUR 32, ä 

e 12964 PLOT xéGikPix.:4CDo#Pix-16 e 
12474 CRAUR 9,32 
1248Q RETUFH 

OS i200n REM KKXEHEHEEERX e 
13819 REM #Curseur Z% 

SIA REM KEKKKKEXAEE 6e 
13H34 FRINT over$ 

615948 PLOT xi1*pix-16, y 12#Pix-16,2 e 
15954 CRAUR 32,32 

ae 1565 PLOT x£ tee té (TPS e 
15474 DRAUR 32,-52 

Sus4 RETU 
« 1 FETURH a 
Commentaires 


Lignes 12030 et 13030 : OVERS$ a été défini dans le module 
d'initialisation en tant que CHR$(23) plus CHR$(1). 
CHR$(23) est un caractère de contrôle, un caractère qui n'’affi- 
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che rien sur l'écran mais qui influence le fonctionnement 
du 464. 

Dans ce cas particulier, le caractère a pour effet de définir une 
caractéristique appelée ‘OVER’ de traçage sur l'écran ou, de 
façon plus technique, de définir un XOR (mode eXclusive OR). 
En clair, cela signifie que tout ce qui est tracé sur l'écran pen- 
dant que la caractéristique OVER est active, inverse l’état de 
tous les pixels rencontrés. S'ils étaient en couleur d’avant-plan, 
ils prennent la couleur de fond et inversement. L'avantage est 
que, si la même forme est tracée deux fois avec OVER actif, 
l'écran retrouve exactement son état précédent. Autrement dit, 
vous pouvez tracer un curseur puis le retracer pour l’effacer, 
sans que l'écran en soit affecté d'aucune façon. 


Lignes 12040-12070 et 13040-13070 : Les curseurs sont tracés. 
L'un en forme de croix, l’autre en forme d’X. La position de la 
croix dans chaque case est déterminée par les tableaux X et Y 
à deux éléments conjointement à la valeur de la variable PIX. 
PIX est nécessaire car, plus loin dans le programme, vous ver- 
rez que le dessin peut être visualisé avec des échelles différen- 
tes, et qu’une distance sur le dessin peut varier lorsqu'elle est 
exprimée sur l'écran. PIX garantit un positionnement correct 
du curseur d’après l'échelle de visualisation en vigueur. 


Module 3.2.3 : Sélection du curseur 


Avec deux curseurs, il est bien entendu nécessaire de sélec- 
tionner celui qui doit être adressé. Le module actuel est appelé 
à partir du menu principal, que nous allons appeler très bien- 
tôt, à cet effet, en changeant la valeur de la variable CN (Cur- 
sor Number). 


MODULE 3.2.3 : LIGNES 23000-24040 


O:S0AA REM HXEHKXEELEEXELELELAEE 
23414 REM XSeléction LCurseur 1% 

Qt REM ÆEKEEEEEEEHEREEEEEÉREX 
23834 cn 

e’ RETURN 
canAa RENM XXEXEEEEXEEELELEREEEE 





canin REM #£Sélection Curseur ZX 
@aaa REN HÉÉAXEEEEEAREREEÉEEEX 
ed4G3é cnzi 
@ 4444 FETURH 
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Module 3.2.4 : Déplacement des 
curseurs 


Enfin, nous devons pouvoir déplacer les curseurs. C’est le rôle 
des touches de déplacement du curseur; sans la touche shift, 
elles déplacent le curseur d’une unité dans la direction indi- 
quée et, avec la touche shift, le déplacement est de 16 unités à 
la fois. Chacune des sous-routines du module est appelée sépa- 
rément à partir du menu par sa touche appropriée. Cela allonge 
le programme mais accélère le déplacement du curseur par rap- 
port à une sous-routine pleine d'instructions IF traitant les tou- 
ches du curseur. 


MODULE 3.2.4 : LIGNES 15000-22040 


AAA RE ÆÉHEXEHEELEEEKELE 
15414 FEM #Curseur haut 1% 
OUcN RENM KÆXXKKKEEKEEEKEALEX 
SA yéCnisgé coitunité 

4 FETURH 

AA FENM HÉEKEELELELEEEEHEE 
RE £Curseur bas 1% 
FEM ÆHELEEEEEELEEEEE 
a CT Cni-unité 
RETUEH 

FRENM ÆHÉEEKÉEEEEEELEEEE 





a 












H14 KREM #Curseur Gauche 1% 
Gen REM HÉHEXEEEEEÉMAEEEEELE 
ASE xkécniexécni-unité 
G44 RETURH 
1£0QG RENM XELXEHÉELELEEEEEEE 
SH14 REM #XCurseur droit 1% 
O2 RENM #£##4 RER EEEKEE 





1 CIE Chitunité 
FETLIFH 

FENM ÆÉRXEELREEEERETEERAERE 
FEN #Curseur haut 16% 
MEN ÆHELEELEERELEEEREEE 
ui croizyé cnitunité#1é 
FETLEH 

FENM HEXEEKEEEEXEEELEX 
FEN #XCurseur bas 164 
FEM HHKELEEEEEXEXEEX 


pen 
A 


DOC 


AR UXE LUE 


Si St EE Ai Late tj LC dr 0 
Re 0 SR 
LAELXEUX 


mn 9 0 OO 


e 
Le 
e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
a 


2 9 2 2 29 ®2 9 D D D D 9 


Fan Fan Pan Pa Pan Po Pise pe pu pe nu pe pa ee ja 


fi dé cnizgécni-unité#ié 

HE FETULRFH 

if REN CHRÉHEEELEELEEEEEELEÉE 
1 : 


Dex 
Lx 
na 
m 
4 
= 
# 
=, 
= 


sent Qauche 16% 
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cle REIN ÆERKEEAEEEEEEEEEEEEE 
ELA sé cniexé cni-unité£lé 

A FETUREH 

14 RENM LELEEELELEÉEEEEEEE 

1 REM #Curseur droit 16% 

A REN ÆHÉEELELEEELEEELEEEE 





HE Cris Cnoitunité#ié 


45 FETUREH 
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Module 3.2.5 : Entrée des 
commandes 


Nous avons à présent deux curseurs et la possibilité de les 
déplacer. Revenons au module qui alloue le travail aux diffé- 
rentes parties du programe lorsqu'une touche est actionnée. 
Pour tester son bon fonctionnement, il faut que le module sui- 
vant, le bref module de contrôle, soit ajouté. La plupart des 
simples commandes citées dans le commentaire ne devien- 
dront, bien entendu, opérationnelles qu'après l'adjonction de 
modules ultérieurs. 


MODULE 3.2.5 : LIGNES 14000-14440 


Qi FEM HEEEEEEELEEEEE 
441 FENM #£Mode Editionx 
14H26 RENM HÉKEXELRELEREEEE 
14434 CLS 
e!54 PRINT "Mode Edition":PRINT 
14954 FRIHT "si:" 
14969 PRINT "Y1:":PRINT 
14GFa PRINT "xzi" 
14484 PRINT "SZ: "PRINT 
14 FRIHT "Echelle:"iunité 
AE PRINT "Themes: "li iter: PRINT 
A FRINT "* Cursenur 1" 
1414 FRIHT 
ea!*!: FEIHT "*: 
1414 FEIHT "* 





RES 


Curseur €" 


Forme" 
Cercle 
Ligue" 
Boite" 
3 CHRéc 1 1: CHERS 1325" Fixe 


1 Hi 


14159 PRINT "* 
O1j41ct FRINT "‘ 

14174 FRINHT "*‘ 
e Fr [L 

14184 FRIHT "* Effacer" 
@i4158 FEIHT CU Fenetre" 

14snn PRINT "'T' Sauvegarde" 


mr, 


i 


e 
6 
e 
e 
A 
e 
e 
e 
e 
e 
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e 14514 FRINT "‘C° Mode supr" e 
14224 PRINT “‘$? Fin” 
1423 te: MHILE t£13 

 i4r4û Gosue 12404 9 
14254 GÜSUE 13404 
1426 LOCATE d.S3S:PEIHT 6605 THES 14? e 
14274 LOCATE d,d:PRIHT 665; TABS 142 

@ 14254 LOCATE d,6:FERINT 6153 THE 14 e 
14294 LOCATE 4. F:PRINT 446153: THB 145 

ee i+:é t=G:UHILE t=g æ 
14314 LS="MMHILE t$="" 

e 1452 té=LOUNERSE INKE TS à e 
143% MED 
14344 +t=IHNSTRE menuS., t$ 
14354 HENC: e 
14366 GOSUE 12448 

@j457a GOSUE 1240 _ 
14354 OH £ GOSU 16444 

ais, na, Z1 A, 256 à 
AA, LÉAAA, SPA, AAA, = 

2 14396 IF xicnisdroite THEH xécnedroite e 
14444 IF xlcn<aauche THEH xécnisaauche 

e 14416 IF yécnihaut THEH yécnizhaut. e 
14488 IF uicniébas THEH nlcnizhas 

8 ;4434 WEHC e 
1444 RETLIEH 

e & 





Commentaires 


Lignes 14030-14290 : Le menu de programme s'affiche à droite 
de l'écran, conformément à ce qui a été prévu lors de l'initia- 
lisation. La partie gauche et centrale de l'écran est réservée au 
dessin lui-même. Outre le menu, les curseurs sont tracés sur 
le dessin principal et leur position est indiquée. 


Lignes 14300-14350 : Ces boucles imbriquées attendent 
qu'une touche soit actionnée; elles la comparent avec le 
MENU $ créé dans le module d'initialisation, produisant une 
valeur pour la commande ON...GOSUB de la ligne 14380. 


Lignes 14390-14420 : Si, par suite d’une commande de dépla- 
cement du curseur, le curseur a dépassé les limites de la 
fenêtre en cours enregistrées dans les variables BAS, HAUT, 
GAUCHE et DROITE, les coordonnées du curseur sont modi- 
fiées par ces lignes. 
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Module 3.2.6 : Le module de contrôle 


A ce stade, il faut entrer le bref module de contrôle pour pou- 
voir tester la fonction de déplacement du curseur, ainsi que les 
modules ultérieurs dès leur entrée. À noter que le module per- 
met la lecture des données sur cassette; nous reviendrons sur 
ce point lors de l'entrée des modules correspondants. 


MODULE 3.2.6 : LIGNES 10000-10100 


Quinn REM KEKEEEEEXE 
ianin REM ÆHControle* 
1an24 RENM HELXETHENXE 
18434 IHPUT "Chargement à Partir 
e assette (o/n2":9$ 
lañdg GOSUE 11844 
14AS8 IF LOUERS A$1="c" THEH GOSUE 3504 





® idgec WHILE 1 
14974 GOSUE 144% 

@innga IF t=29 THEH MODE 1:CLS:EHC 
1AN9G GOSUE 4aman 

ali WEND 


Test 


Exécutez le programme pour constater que vous pouvez dépla- 
cer chacun des curseurs avec les touches de contrôle. Aucune 
autre fonction du programme n’est encore disponible. 


Module 3.2.7 : Traçage d'une ligne 


Les trois modules suivants vont faire le travail facile et fasti- 
dieux du programme : traçage des lignes, des boîtes (carrés 
ou rectangles) et des polygones (y compris des cercles). Vous 
ne pourrez pas les utiliser pour cela immédiatement, car ces 
modules ne sont pas appelés directement à partir du menu, 
mais par d’autres modules qui ont pour tâche de gérer le tra- 
çage, l'effacement, etc. Le présent module trace simplement 
une ligne de la position du curseur 2 à la position du curseur 1. 


MODULE 3.2.7 : LIGNES 37000-37050 


Gt RENM ÆFEEEEEEEREEELRELEEEEE e 
De FEM #XTrasañe d'une liGne* 
CA REM KXKHEXAEELEREXERAEEEX æ 
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3754 FLOT x2#Pix, 42KPix 
e sradf DRAM x1#Fix. ali e 
3FAS4 RETLUEH 





Test 


Exécutez le programme de préparation de l'écran, puis arrêtez 
en frappant : ’ ’. Tapez : 


C=2 :X1=50 :Y1=50 :GOTO 37000[ENTER] 


Vous devez voir une ligne tracée du centre de la zone noire, en 
diagonale vers le haut et vers la droite. 


Module 3.2.8 : Traçage d'un cercle 
ou d'un polygone 

Il s’agit d'un module standard qui relie des points autour d’un 
cercle. Selon le nombre de côtés spécifiés, vous obtiendrez un 
cercle ou un polygone régulier. Avec trois points seulement, la 
forme sera triangulaire. 


MODULE 3.2.8 : LIGNES 38000-38140 

















Sons RENM KÉEEELELRELELELELEEÉEEELX % 
, A MEM £Trarañe d'un Folygone# 

@ Ses FENM HÉRELEEEEEEELEEEELREERAE e 
SOGIA FESORE CG KIT EE fs bé 9 fn D NE 4 1 — 

OS Sgda z22CINTe SkLOGE unité 39 Se 
SSGS4 IF MOTS ZIZE OR zlszer THEN z£=zl 

SES IF : «1x2 THEN a=PI/2KEGNC 9 1-42 8 
20074 IF xliSixe THEN a=ATMN EU la r ner ml 

LESE [.) 
SG IF xiixe THEH aza+FI 

25454 PLUT CxT+r£COS a 1 2KP 14, Cu +rESIH( a @ 
LAkFix - 

e 5165 FOR s=z1 TO zZ 
35119 ai= a+E#FI#s °TÈ ° 
35124 CEHH CAB ECOSE AL TSEP ILES CN EH ES IMC 

0; al ï2#Fis e 
38156 HE TT Œ 

85144 FETURH e 
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Commentaires 
Ligne 38030 : Distance en diagonale entre les deux curseurs. 


Lignes 38040-38050 : Z2 sera le nombre de points à placer 
autour du cercle. L'expression de la ligne 38040 donne suffi- 
samment de points pour obtenir un cercle acceptable. Inutile 
de pousser trop loin la définition du nombre de points, car 
l'amélioration serait peu perceptible mais le déroulement du 
programme beaucoup plus lent. Si vous spécifiez une forme 
autre qu'un cercle, la ligne 38050 définit le nombre de points 
d'après celui que vous avez fourni, à condition que ce nombre 
ne soit pas supérieur à celui qui est nécessaire pour tracer 
un cercle. 


Lignes 38060-38080 : Ces trois lignes calculent l'angle du cur- 
seur 1 par rapport au curseur 2. 


Ligne 38090 : Premier point autour du cercle; sa position 
importe peu, pourvu qu'elle soit différente de la position 
du curseur 2. Vous reconnaissez sûrement l'équation du pro- 
gramme Heurclassique du premier chapitre. 


Lignes 38100-38130 : Cette boucle calcule la position de 
22 points sur la circonférence du cercle, qui sont tracés parallè- 
lement au calcul. Là encore, c'est la même formule que celle 
du programme Heurclassique. 


Test 


Compte tenu du nombre de variables nécessaires pour tester ce 
module et le suivant, il vaut mieux attendre que d'autres modu- 
les aient été ajoutés au programme principal. 


Module 3.2.9 : Traçage d’une boîte 


La dernière forme que le programme peut tracer est un simple 
rectangle ou carré, dont les angles opposés sont situés aux 
points 1 et 2. Ce module est un peu plus complexe que le pré- 
cédent car il n’y a pas de commande intégrée pour cette forme 
et de plus nous avons prévu la rotation. 


MODULE 3.2.9 : LIGNES 36000-36210 





@ AA RE XEKEEKELELRKEEFELEEEEEEE e 
36814 REN XTrasase d'une boitet 
@ SEE REM KXKELAEEEREEELEEEAELX e 
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SAS az-21/-10nn4 

36444 cs=C0S à 1 

36454 snzSIN( a) 

SG ke xl+xz 1-2 

SGA 4=Cyi+u2rE 

SÉABG rxl=x+( sis iécs + y lu ken 

SAS rulzu+éyl-s cs x i-x Ken 

QG rydanti sax £a a 1-4 Een 

14 ryszu+(ui-y DÉS xx kan 

SE past se 1kCS+C YU Ty Ken 

SA rygss+é ay fs k2-x Ken 

44 ridaxté xls ikcs+( y z-y Jken 

SA ryudaey+ey2-y kcs-(xi-x3#ken 

69 FLOT rxilkPix:rul#Pix, € 

Elr9 CRAN FaZkPix PATKPIix 
36166 CRAU FocsKP 1x PO SEP 1x 
36194 DRAU rxSs#Pixs ra d*Pix 

@ 26244 CRAU rxl#Ppixsrul#Pix 
26819 FETUREH 


>D%®VPDDD PDP 9 





Commentaires 


Lignes 36030-36050 : La variable A contient l'angle, fourni par 
l'utilisateur, permettant la rotation de la boîte. CS et SN ont 
pour but de raccourcir la formule du déplacement des angles 
de la boîte lors de sa rotation. 


Lignes 36080-36150 : Voici les formules de rotation d’un point 
autour d'un autre : 


X2 = X0O + XD%OS ANGLE + YD%IN ANGLE 
Y2 = YO + YD%OS ANGLE + XD%IN ANGLE 


X2 et Y2 sont les coordonnées X et Y résultant de la rotation 
du point X,Y. 

X0 et YO sont les coordonnées autour desquelles la rotation du 
point a lieu. 


XD et YD sont les distances qui séparent X et Y de X0 et 
YO, respectivement. 


ANGLE est l'angle de rotation du point défini par X et Y. 


Le rectangle de base, avant rotation, aura les angles de X1/Y1, 
X2/Y1, X2/Y2 et X1/Y2. Si vous examinez les lignes et si vous 
les comparez avec la formule précédente, vous constatez qu'el- 
les fournissent les coordonnées après rotation des quatre 
points d'angle. 
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Module 3.2.10 : Répartition des 
tâches entre les modules de traçage 


Ce bref module est nécessaire pour intégrer les modules de tra- 
çage avec ce qui va suivre. Nous expliquerons son utilisation 
en examinant le module suivant. 


MODULE 3.2.10 : LIGNES 35000-35060 


RENM XXHEHEKELEEEELEEE 

RE XTrasane Alobalx 

FEM KÉXXKEXKÉEXEXKEEEEX 

IF zi<i THEH GOSUE 36a4û 
IF zizi THEH GOGUE 37444 
IF z1:1 THEN GOSUB 38agû 
RETLIRH 













3 D ® © 
Où 13 Oo fat Qt Let et 
DIEU 
DS SSH © 
Ti ON B Pis 1 
St Sr D 1 O9 

® D » © 


Module 3.2.11 : Contrôle des 
commandes de traçage 


Les trois sous-routines que nous allons voir à présent transfor- 
ment les touches actionnées à partir du module de menu, en 
paramètres permettant d'utiliser les modules de traçage propre- 
ment dits. 


Chacun des modules a les fonctions suivantes : 


1) Si nécessaire, demander des informations complémentaires 
telles que ‘combien de côtés’ ou ‘degré de rotation’. 


2) Définir la caractéristique OVER en affichant OVER. 

3) Effacer toute forme existante non confirmée par l’utilisa- 
teur, comme l'indique la variable TEMP qui est égale à 1. 

4) Définir les variables Z1, X1, Y1, X2 et Y2, les positions 
des curseurs. 

5) Appeler le module de traçage approprié. 


6) Définir la variable TEMP pour indiquer qu'une forme a été 
tracée et pas encore confirmée. 


MODULE 3.2.11 : LIGNES 25000-28110 
OZSÉS REN ÉEEEEEE & 


416 FENM #Formex 
ein FEM #EKKEEX e 
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e 
& 

e: 
F 

.° 
e: 
e: 
e: 
6 : 
°: 
ei 
6: 
e: 
e: 
e: 
. 
e. 
e: 
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SSU3f zef'esG:MHILE zis OR z2serér 
2SA4G IF e=i THEH x$="#HORS LIMITESX#" 
SUB 344@a 

Log INPUT #1, "Cotés";z:FPRINT #1 
e=1:MEHC 

PRINT cverg:iczz 

IF tenpz]i THEN GOSUE 35464 
ziszsixlext@ihigtauc fiscal 1e 


“h 
€ 
T 
= 


DATES) 
Rime 


— 
S 
5 
> 


st 


Et 
LE TJ 


— 
sl 


GOSUE AAA 
temp = ” 

FETLEH 

FEN ŒHHELEEXEE 

FEN £lCercle* 

FEN ÆHEHAKEE 

PEIHT mvergicez 

IF temFz1i THEH GOSLE 
ziséixies(tfiialeye fo: 


CREER EE EE: ER 
US a pa a 
at es 1 Pt a 1 
Es 1 


CARE LA ELA ELA EE 


É 


a 
er 
ut at 


GOSUE 35446 

tenez 1 

RETUEH 

FRENM HÉEEEEE 

REM #Liane* 

REM ÆÉHEXEXE 

FPRIHT cer ice 

IF tempzl THEH GOSUE 
zislixizxi fi: en da 


= 2 o 


TT D 
DREUX EE 


A 


= 
D EEX 


= 
Lx] 


GÜSUE 344 

tempz] 

FETUEH 

PEN ÆHEEEHEX 

FEM #Boite* 

BEN HEÆXEEEEX 

IHFUT #1: "hotat] 
aa {SE IHTE 23-186 1 
z=-CINTé a LL SEP LE 1 GA 
FRIHT over$: ce? 

IF tempzl THEN GÜSI 
zizz'xkizx(fi:uizucte 


Si: 


LE 
AARUX 


Ex 
CCC LUE LUE EX EX EE | 


Et à 
AUX 


* 
FT, 


GOSUE 
tenez à 
FETUEH 


En où nt CRE 


ps pe 50 
mi tt 
DA 


:G0 


2 2 2 2 2 2 2 929 2 2 2 2 9 2 2 D D D D 9 
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Commentaires 


Plutôt que de faire des commentaires sur chaque sous-routine, 
nous allons analyser succintement les points principaux de 
l'une d'entre elles. Ces points s'appliquent à toutes les sous- 
routines. 


Lignes 25030-25060 : Information complémentaire nécessaire 
si une forme doit être tracée, par exemple combien de côtés. 


Ligne 25080 : Si la variable TEMP est définie, une forme vient 
d'être tracée et n’a pas encore été confirmée (nous reviendrons 
sur la confirmation dans un instant). Avant de tracer la forme 
actuelle, le module de la ligne 35000 est utilisé pour appeler 
à nouveau le module de traçage approprié. Comme OVER est 
défini, le tracé se fera sur la forme précédente qui sera effacée. 
Donc, si vous voulez tracer une forme complexe qui ne con- 
vient pas tout à fait (ce n’est pas exactement ce que vous vou- 
liez), vous pouvez déplacer l’un des curseurs, en vous servant 
de la forme imparfaite comme guide, puis retracer la forme en 
effaçant automatiquement la première version. 


Ligne 25090 : Définition des variables. 


Test 


Vous êtes à présent capables d'exécuter le programme et tracer 
des formes, mais vous ne pouvez pas encore les confirmer et 
les intégrer dans le dessin; en effet, chaque forme tracée effa- 
cera la précédente. 


Module 3.2.12 : Enregistrement 
d’un dessin 


Un tel programme présente peu d'intérêt tant que le dessin 
réalisé ne peut être enregistré. Dans notre cas, l'enregistre- 
ment du dessin dans un tableau nous permettra ultérieurement 
de stocker les données sur cassette et de supprimer des lignes 
individuelles. Les lignes et les formes sont toutes enregistrées 
par l'appel de ce module, au fur et à mesure de leur entrée. 
En outre, le module trace la forme de façon permanente afin 
qu'elle ne soit pas effacée lors du traçage de la suivante. 
Pour appeler ce module, appuyez sur ENTER sur le menu prin- 
cipal. 
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MODULE 3.2.12 : LIGNES 29000-29150 


@e SGA REM XX#XEXE 
29614 RENM #Fiser*k 
LOGE REM #XEEXEE 
CSN IF tempzf THEH RETURH 
& Eagdf IF item=1An1 THEH x$="4PLUS DE FLA 
CEX":GOSUE 3446: RETURH 
ogg FRIHT normal$:czl 
2396 GOSUE Sang 
can 4% item, G4)zzi 
QE axé item, 1 =xi 
253494 axitem.Zzizui 
291A4 ax item, 3x2 
2911 a%fitem, dieu 
e 29124 teme=f4 
ES154 itemzitemti 
29144 LOCATE F.1G:PRINT item: TAES 145 
29154 RETURN 
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Commentaires 


Ligne 29030 : Si TEMP n'est pas égal à O, il n’y a pas de forme 
à enregistrer. 


Lignes 29050-29060 : NORMAL$, qui a été défini dans le 
module d'initialisation, met hors fonction OVER, de sorte que 
tout traçage soit normal. Puis, le module de la ligne 35000 est 
appelé pour permettre le choix entre les divers modules 
de traçage. 


Lignes 29070-29130 : Les variables nécessaires au traçage de 
la forme sont stockées dans le tableau A%. TEMP reçoit la 
valeur 0 pour indiquer qu'il n'y a pas de forme non confirmée 
sur l'écran et la variable ITEM est incrémentée pour indiquer 
qu'une autre forme a été ajoutée au dessin. 


Module 3.2.13 : Effacement d’une 
forme 


Un module simple qui efface une forme non confirmée de la 
même façon que lorsqu'une nouvelle forme est tracée. 


MODULE 3.2.13 : LIGNES 30000-30070 


O An REM HXEEELEEEEEX e | 
54414 REM *Effacement# 
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e 0020 REM KEKKEEEEEERX e 
34834 IF temP=à THEN RETURH 

e 52242 PRINT over&:c=2 e 
500 GOSUB 3594 
3464 temp=t 

@ =aû7û RETURN e 





Test 


Vous pouvez effacer une forme non confirmée en frappant ’E’ 
à partir du menu. 


Module 3.2.14 : Retraçage d'un 
dessin 


Nous sommes en mesure d'enregistrer une forme dans un 
tableau. Voyons à présent comment retracer sur l'écran la tota- 
lité du dessin à partir des données stockées dans le tableau. 


MODULE 3.2.14 : LIGNES 39000-39130 


REM XEKKKKKKEXE 
REM %ketraranek 
A REM KKEXKEKKEEX 
IF item=ä THEN RETURH 
n FRINT normal$:czi 
FOR iz4 TO item-1 
39m zlzac i, 41 





0 sSara xi=axi, 12 
33084 uÎ=3%0 1.20 

35094 xP=a%c i,32 
291A4 uZ=a% id 

@:3114 GOSUE 35490 
39124 MEXT i 

e 2129 FETURH 


Test 


Exécutez le programme et dessinez quelques formes, puis arré- 
tez le programme en frappant ” " et tapez : 


CLS #2[ENTER] 
GOTO 39000[ENTER] 


Toutes les formes doivent réapparaître sur l'écran. 
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Module 3.2.15 : Suppression des 
lignes et des formes 


Comme le dessin n'est pas stocké de façon globale, mais sous 
la forme de lignes et de formes individuelles, vous pouvez faci- 
lement supprimer des données séparées. Ce module affiche 
tout le dessin, ligne par ligne, en vous permettant de sup- 
primer toute ligne de votre choix. Vous pouvez aussi l'utiliser 
pour retracer le dessin si l'écran a été effacé par arrêt du pro- 


gramme. 


MODULE 3.2.15 : LIGNES 40000-40290 


FEM RARE RER NEEEEEEEEX 
FER #locde Î 
‘ET EEE ECE 





4 
CA] 


—, 
nt 
=. 
at 
LE 
BA 


RER 
DCE 





Le, 
+ 


So 9 





PRINT Made SuPrression" : PRINT 
FRINT "Item # 1":PRINT 
PRINT "Echelle: ";iunité 
FRIHT "Items: "iiten:FRINT 
PRINT MS" CHERS 1 Hi CHARS 1500" Item 
‘4 nt LL 
FRIHT "'E" Enlever" 
FRINT MES Fetis Lt D 
:MHILE ititem 


Er LR 10 
RARXELTEUTE 


= 
mt 1 


® D D D ® 9 
ES 


RE LEE LELEELRELEL EE 
ONE NE NUE) È er Sr 5 Gi 


1 NU 
RRTRRNELA ETES) LE 


Te 
Us Et 





pc" AND d=ÿ 


ie 


CS 1 [IE 
té=" LU] 
= 1 : HEHC 
49234 MHILE t$é="" 
And LHeUPPERSE IHÉE TS 
SAS MEHC 
O ann IF t$="E" THEN GOSUE d1ñ4n ELSE GO 
QUE dedans 


D 


9 82 2 2 2 2 2 2 2 D D D D D 9 
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Commentaires 


Lignes 40120-40220 : Les détails d’une forme sont lus dans le 
tableau A% et tracés avec OVER actif. 


Lignes 40230-40280 : Le programme attend que vous frappiez 
"E’ pour supprimer la forme affichée, ou toute autre touche 
pour la confirmer. Aucune des deux actions n'aura d'effet, car 
il reste encore à entrer les deux modules suivants. 


Module 3.2.16 : Effacement d’une 
forme du tableau 

Après avoir retracé une forme à partir du tableau, vous pouvez 
l'effacer définitivement du dessin tout simplement en la retra- 


çant avec OVER actif. Ensuite, le tableau est resserré pour sup- 
primer les détails concernant cette forme. 


MODULE 3.2.16 : LIGNES 41000-41120 





e aida 
41814 
41820 

8 ins 
41n4û 

6 4145 
41560 


8 41470 
41484 
e Ain 
411nn 
e4+111n 
41125 


RENM KEKEEETEEEEE 
REM +Effacement* 
REM ÆHÆHXXEXEXAREX 
PRINT overg:czz 
GOSUR 3544 
itemsitem-i 

FOR j=i TO iter-1 
FOR k=zä TO 4 

at J,k mat i+lki 
HEXT k 

HEXT 

LOCATE F6:PRINT iterm:; THE 14° 
RETLUFH 





Module 3.2.17 : Confirmation d’une 
donnée en mode suppression 


Pour confirmer une donnée, il suffit de la retracer avec OVER 
hors fonction. 


MODULE 3.2.17 : LIGNES 42000-42070 





GO A:GdE REN ÆEXEKEEEEEELEEEX @ 
42414 REM X]Item suivantx 
@ 42924 REM #HKEEKEEEEEEEE a 
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42934 FRINT normal$:cz=i 

e 42948 GOSUE 35009 e 
42GSA i=i+i 
42@64 LOCATE 7,3:FRINT i+i 

D 42474 RETURN e 





Test 


Si vous avez entré quelques formes, vous pouvez à présent obte- 
nir ce module, en frappant D’ à partir du module principal. 
Assurez-vous que vous pouvez consulter le dessin entré, sup- 
primer des données ou les laisser intactes. Si vous frappez ‘ ’ 
au début du dessin, il ne doit pas y avoir de modification, mais 
le dessin doit être retracé en totalité. 


Module 3.2.18 : Messages d'erreur 


Ce simple module affiche un message d'erreur provenant d'une 
autre partie du programme. 


MODULE 3.2.18 : LIGNES 34000-34070 


Zd4ñf 






EE £EEXEEEE 


din 
442 
34636 


e 
L. 
e 346144 
e 


FEM #Erreur* 

REN ÆHEXEEFE 

PRIHT #1.::$:; 

SOUHC 1.194464, 14 

FOR ii TO EM: MEZT i 
FRIHT #1 

RETUEH 








® D D 9 






Module 3.2.19 : Fenêtres et échelles 


Nous n'avons pas encore abordé l'une des possibilités les 
plus intéressantes du programme ARTISTE : déplacer l'écran 
comme une fenêtre sur un grand dessin ou, à l'inverse, réduire 
un dessin pour qu'il puisse apparaître sur une seule image. 
C'est un module plutôt complexe, mais qui le serait bien plus 
sans les capacités du 464. En effet, ce dernier permet de dépla- 
cer l'origine (ORIGIN) du graphique et de tracer des lignes qui 
n'apparaissent pas sur l'écran, sans créer d'erreur. 
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MODULE 3.2.19 : LIGNES 31000-31280 


REIN ÆXXEEAEXE 

RENM #Fenetre* 

PEN ÆHÉFEEEREE 

KH="#HORS LIMITES" 

et: MHILE e=û ÜR x£-163564 OR #16 





CCR COCO ECC 
B Go sis 
CRU ERA EX EX] 


IF e=i THEN GOSUB 54Gte 
INPUT #1, "KM" ix 
e=1 : HENC 

e=Q:MHILE 2=6 OR y<-16 


Jin 


DO 
DARATELCE Lx) 


D MU RO) Pme D 


IF e=i THEH GOSUE 54ñnam 

INPUT #1,"%";u 

ez1:HENC 

est: MHILE ezf Oh unitéél 

IF ezil THEH GOSUB 344 

IHPUT #1."Echelle"iunité:PRIHT #1 
e= À : HEHD 

Fixzs ue 

LOCATE 7 SPRINT unité:TAES 14: 
gauche=x-1üütunité : IE Sauchei-1638 
H aauchez-163%4 
droite=z:+99#%unité:IF droiteo1ésss 


8 D D D D D D D D 9 
BR Gi in di Qi oi di foi Gi dd Co 00 6ù Lai et da er] us Pois Lait a ft 


ki] 
ER et Del Det D Ho Det bed Lo dd De het Det V4 dd bob Det jet te 


Et he ee D pet Hd et Det bee 11) 


© T 
A D Sr ES 1 © Qi 


eux droite=16383 
e: 512044 ir LS IF Hauti1ésss THEN 
haute tésss 
1214 bassu-1ff£unité: IF bhas<-16364 THEH 
bas=-16354 


ORIGIN : 


een CLG - 
1127 A GOE SUIE SSGAE 
11264 RETURH 


PR INR Re 


Commentaires 

Lignes 31030-31050 : Appel de la routine de messages d'erreur 
que nous venons d'entrer. Le module contient plusieurs appels 
qui vous alertent si vous entrez des nombres incorrects. 


Lignes 31060-31110 : Le programme vous demande d'entrer 
les coordonnées X et Ÿ correspondant au centre de la nouvelle 
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fenêtre. Le dessin a une taille totale de 32768*32768 unités 
et la fenêtre peut se déplacer en tout point de cette zone théo- 
rique. 


Lignes 31120-31150 : Entrée de l'échelle de la fenêtre. Plus ce 
nombre est grand, plus le dessin affiché sera petit. Ainsi, vous 
pouvez créer un dessin avec une échelle bien plus grande que 
l'écran, puis le visualiser en une seule fois grâce à une 
échelle réduite. 


Lignes 31180-31210 : Les variables représentant les limites 
de l'écran sont définies. Si l’une des limites dépasse la taille 
maximale du dessin, la fenêtre se déplace pour la ramener dans 
les limites permises. 


Lignes 31220-31270 : Les deux curseurs sont déplacés au 
centre de la nouvelle fenêtre et l'origine du graphique est redé- 
finie. L'écran graphique est effacé et le module de retraçage 
est appelé pour recréer le dessin. Il est possible que, la fenêtre 
étant déplacée, tout ou partie du dessin se trouve à l'extérieur 
de la nouvelle fenêtre et soit donc invisible. 


Test 


Après avoir entré un dessin, vous pouvez déplacer l'écran sur 
le dessin, l'agrandir ou le réduire. 


Module 3.2.20 : Stockage sur 
cassette et relecture 


Il s'agit d’une section de stockage de données standard. Pour 
une explication des méthodes, voir le programme Histogramme 
3D au chapitre précédent. 


MODULE 3.2.20 : LIGNES 32000-33130 


BRENT ÆHÉHELELELRELEXELEEEEERELE 
FEM Sauvegarde sur cassette# 
RENM CHHEFEEREEEERERELEEEEEEEEE 
INPUT #1: "Mom:",n$:FRINT #1 
OFEHOUT "ten 

PRIHT #3. item 

FOR izf TO item-1 

FOR j=zä TO 4 

FRINT #4, a%(i. ii 

HET 

AA HEXT à 

CLOSEOUT 
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RETURH 

FENM HÉRÉEEELEEETELEEEEEEEEEE 
REM XCharSement à Partir dex 
FE # la cassette # 
FEM ÆÉXKEKERER ER EEE EEE ELEEEX 
INPUT #1, "Hom:"on$:FRINT #1 
CIPEMIH "té 

INPUT #9, item 

FOR i=4 TO item-1 

FÜR izä TO 4 

A IHPUT #93a%ci, ii 

NEXT 

HEXT :i 

Use 


RETURN 


JT A Be do Pire de 10 fi 
SR 0 D CA Or 





2 2 2 2 D» D 9 


Ci Far mes 1Q UN 19 
a Go 1 





Test 


Créez un dessin simple et frappez ’T’ pour le stocker. Arrêtez 
le programme et relancez-le pour effacer la mémoire. Répondez 
par ’Y’ (Oui) au message vous demandant si vous voulez char- 
ger à partir de la cassette (TAPE). Donnez le nom du fichier 
sous lequel le dessin a été stocké et le dessin doit réapparaître 
sur l'écran. 


Si ce test est concluant, le programme est opérationnel. 


PROGRAMME 3.3 : MUSIQUE 


Fonction du programme 


Outre ses nombreux autres avantages, le 464 est sans aucun 
doute l’un des micros actuels les plus puissants et les plus 
riches sur le plan musical. De plus, contrairement à d'autres 
machines qui ont également beaucoup de capacités, le BASIC 
du 464 permet, avec un effort minimum, de tirer le meilleur 
parti des possibilités musicales du matériel. 


Ce programme est un bon exemple de ce que vous pouvez 
obtenir avec un peu de réflexion. Avec lui, vous pourrez créer 
des mélodies et des harmonies complexes et les manipuler de 
diverses façons. Que vous soyez musicien confirmé ou non, les 
résultats permis par le programme ne manqueront pas de vous 
surprendre agréablement. 
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e CHANGEMENT DES PARAMETRES 


SSRSSSSSSSSSSESSEESSSESCE 


e 

e e 
e ENTER Four ne Pas changer les Paramètres e 
e 

e 

a 


Octave relatif 925 :1 
Note relative (@2 :3 
LonQueur d'unité <24) :15 
@ Canal 9 (O0) : 
Canal 1 <0) 
e Canal 2 0) 





Figure 3.4 : Un menu du programme Musique. 


Module 3.3.1 : Les données pour 
la mélodie 


Comme avec les programmes graphiques précédents, nous 
allons placer l'information de base de la mélodie dans des ins- 
tructions DATA en fin de programme, pour faciliter l'examen 
et l'édition. Il n’est pas important pour l'instant que vous com- 
preniez toutes les données, car nous les expliquerons au fur et 
à mesure de l'étude du programme qui les utilise. Avec les don- 
nées ci-après, vous jouerez une version très honorable de 
"Fur Elise’. 


MODULE 3.3.1 : LIGNES 26000-28390 


FEI ÆÆXÆLEEEELEREEELEXX 
FEN Xlanal E Connéezst 
FEN HREHAEHEEEÉEEEAEEE 
CATA EHYI 

CATA # 

cs CATA L1.16.:15 





DRE SERRE 
it Ext 
Lili 
OCEAN 


DA 


AA 


AR 


2 
Lex 


Lu 
a 


“a 
= 
D] 
Les 
D 
Las 
De] 
Ca 
eu 


® ® »2 ® » » 9 


cegen DATA 16.15:16.11:14,1Z 

26ava DATA LE, 3,L1,R:4: 4,3 

LEGS CATA LE. 11.L1.R:4,8,11 
@26424 DATA LZ.12,L1.R,4.16.:15 

CéiS DATA 16.15,16.11.14.12 
e:Siis DATA L2.3.L1.R,4,4,9 

26124 CATA LZ.11.L1.R.4,8.11 
e “1: CATA “1 

Etidf CGATA Lé4.3 


a GDS Se D D Su 


2 
LEE 


CARRE) 


M 


CC O0 OO OO Te Te Te Te D Ti a D Ti D Te I D M 


Eu Cr a ot QD 63 Cat ei 0 Oo a Co Fe Pa M5 Po Po Pat Po Po Po Pie de pet et 
EN Le do Po pe 9 Ci Ps 1e D QU Qi CA Re oi Po es 60 QD O9 TT EST a ei Pet de 1 0 D NS 3 CA 


oi Pan Po Dog Pa Pi Pen Pen Pi Pan Pa Po Pa Po Pen on Pa Pa An Pet Pa Pa Pen Po Pas Po Pi Pre Pa Po Po Po Pi Pit Pit 


RQ 1 





DR AEREER 
CS UE KT 
CA Le og Po re D LG Ms 
a Se Se 


Ro Ps Po Po Pa Pas Foi Fa Pa Fe 


Le ar 
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C'ATA 
CATR 
CATH 
CATA 
CATA 
DATA 
CATA 
CATA 
C'ATH 
DATA 
CATA 
CATA 
CATA 
DATA 
CATA 
CHTA 
CATA 
DATA 
DATA 
CATA 
CATA 
CATA 
DATA 
CATA 
CATA 


ë 
#2 
ne 
se sL1:R:11:12,:14 


L5.16L1, 717.16 
L3.14,L1,5,16,14 
L3,18:L1.4.14,1Z 
L2.11 L1R 4 IER 
Re SE RE, ES 
16.RZ. 15.16.15 
Re 
Le.S,LI1.R.6. 4,3 
LE: 11; Li.K.4.5,11 
LS LA LR 4: 1€; 15 
16:15:16:11:14,1Z 
L2,3.L1.R.8; 4,3 
Lza.11,L1.R:4,14,11 
LE: 3:L1,:R:11.:12:14 
LE 

Le, Lis FR: A, 4,3 
1£,16.Ld.81 

fin 


REM ÆHHEÉELÉEEEÉÉEEELE 
RENM £Canal 1 Données 
FEI CHER EREREEEELELELE 


CATA 


fin 


REM HEXKEEKEEEKEKEFFREELE 
FE Canal 2 Connées* 
PEN HHEEALELRÉERÉEEEEEEE 


CATA 
CATA 
CATA 
C'ATA 
CATH 
CATA 
CATA 
CATA 
C'ATA 
CATA 
CATA 
CATA 
CATA 


ENY1, 0-2 


# 
RE 
F6 
3.16:21L.FR3 
4,16: 24,5 
4 18:21:R5 
F6 
G,16:81.F5 
+, 16. CARS 
+1 
9.16.21.FR1 
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Module 3.3.2 : 


eu = 


+ 1 


D 0 D NT 
eo Gi 


rs 
DR EE EX 


ou 


GO U 


3 
$ 


3 


=, 
et 


cn Pen Pat Pa Pa Per Pa Pr Fe Po PT 


| 

1 

1 
r] 
= 
ë 
e 
é 
ë 
£ 
ë 
2 
me 
0" em 


LD C6 Mi CN Be où Fo 


pt 


x 
+ Ci 
D 


Du «| iTLTTLT ï (ed 
$ D O0 BD D Mm Lie KID + X 


- Fort 


purs 
Ti 
Fo 
rer 
ne) 


ii 


& 


DO] 


x] 
+ Lo 


oies ÊU NU 


MN der 
D Dé bob ‘= 
_ Le Le 
UR 
io Pa ti 0 
bé 


PF Ni Po es 2 Pû fo is 
cabine TnTTZ- 


NON MTMMUS 


nm --Mm. 
D jh be “e uk ‘= 
mine 
- 
Lo Let 


ds 
D bo 
Tr M 
._ LR 
FO Mi 
DNS 

x ka 

CEE] Lei Li 


[EX] 
Fan 


+ ee ui Li 
Du 
Tr 


mm Pate 


#1 
Se 
T3 


Di 

< 14 

Cd: e 
£ 


Initialisation 
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Ce module est plus complexe que la normale, car il faut obte- 
nir et traiter les données de la mélodie avant de passer à la 
partie du programme qui la joue réellement. 


MODULE 3.3.2 : LIGNES 10000-10160 





A 
Do 


DRE 
ROUES 


RARE EU 


6e 


A6 


LL C0 Pere 


d 


3 


L 
1 
Î 
1h 
t 
1 


LE 
Det) 


13 


not Ed 


= 


_ 
ni 


L 


nt 


Some 


ARRET 
EC NX EC 
DCE LUE 


& 


—" 


REF 
REM 
REM 
CLS 


a" 


C 


1 FO 
 LET 
à REAC 


If 2 


EREXELÉELEEX 
#lnitialisat 
HAXEEKAEEELE 


:LOCATE 15,15 


», Fe 


#AEX 
ion* 
#XXE 


:PRINT'VeuiTl 


éripérr de 


ez At 


HER E 





e 
e 
e 
e 
e 





® 9 9% 
D jh jé Det jet jet 
SDS 
mme IQ 
Co Pi me 15 JS 0 D 
ARE LEA ENNE LUE) 


1ai4n 
eia1sa 
1a16@ 
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agp, ciclLONERS agp, ci 
IF a$p.cs"fin" THEN P=P+1:GOTO @ 
pci 
HEXT c 
roc 

rnosf 

ul=z 

GOSUE 25444 
GOSUE 15444 









Commentaires 


Ligne 10040 : La complexité de la tâche est dûe à la variété de 
tableaux qui seront employés pendant le déroulement du pro- 
gramme. Nous les expliquerons au fur et à mesure de leur uti- 
lisation. 


Lignes 10050-10110 : Les données sont lues dans les trois 
colonnes du tableau A$. Le tableau tel qu'il est défini ici peut 
contenir jusqu'à trois ensembles de 200 données, correspon- 
dant aux trois voix ou canaux du 464. Les données sont initia- 
lement chargées dans la première colonne. Lorsque le mot 
‘fin’ est rencontré, la boucle continue à lire (READ) les don- 
nées, mais commence à les placer dans la colonne suivante du 
tableau. Il est donc vital de terminer les données de chaque 
voix avec le mot ‘fin’ comme dans les specimens de modules 
DATA. Enfin, pour chaque voix, l'élément correspondant du 
tableau P$ reçoit la valeur Y pour indiquer, au moins initiale- 
ment, qu'il faut jouer le canal particulier. 


Ligne 10120 : La variable ROC permet de déterminer l'octave 
sur lequel la mélodie est basée. La mélodie DATA sera inter- 
prétée par rapport à cet octave de base. 


Ligne 10130 : De même, RNO est la note de base. Si vous la 
changez pendant le déroulement du programme, la clé de la 
mélodie sera changée. 


Ligne 10140 : La variable UL permet de stocker la longueur 
standard d'une note. Dans les données de la mélodie, chaque 
note sera un multiple de cette longueur standard. 


Lignes 10150-10160 : Appellent deux sous-routines qui com- 
mencent à traiter les données de la mélodie sous une forme 
plus conforme au 464. 
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Test 
Vous devez entrer deux lignes temporaires : 


15000 RETURN 
25000 RETURN 


Puis exécutez le programme. Un temps assez long doit s'écou- 
ler avant le retour du curseur. Vous ne pouvez encore rien faire 
des données qui ont été collectées, mais vous saurez au moins 
que votre saisie ne contient pas d'erreur de syntaxe. 


Module 3.3.3 : L’enveloppe de son 


L'enveloppe d'une note est la forme qui guide sa montée à 
partir de rien, sa continuité et éventuellement son retour au 
silence. La plupart des sons et des instruments musicaux ont 
des enveloppes très particulières. La ou les commandes d'enve- 
loppe du programme sont placées ici dans le programme pour 
vous rappeler qu'à bien des égards, elles font partie des don- 
nées de la mélodie. Un changement d’enveloppe modifiera la 
mélodie presqu'autant qu’un changement de notes. 


Nous n'’allons pas approfondir ici le côté technique des enve- 
loppes. Cela demanderait de nombreuses pages et vous appren- 
drez bien plus en faisant des essais avec différentes valeurs, 
lorsque le programme aura été entré. 


MODULE 3.3.3 : LIGNES 25000-25040 





REM RERERE EEE RÉEREREEEEE 
FEN £lettre ici les Commandes 
1 RENM # ENY et ENT 


# 
FEM ÆHLRELEEEEEXEEEEEEEEEEEEEEE 
EH l:Pa-1.14,58.-1, 44 
RETUFH 


Module 3.3.4 : Traitement des 
données de la mélodie 


Peut-être serez-vous surpris que nous ne jouions pas déjà la 
mélodie contenue dans les instructions DATA. Sachez que ce 
n'est pas pour tout de suite, car il faut d’abord traiter les don- 
nées. 


La raison en est que, en recherchant la façon la plus aisée 
d'enregistrer une mélodie, nous nous sommes éloignés du for- 
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mat nécessaire aux différentes commandes de son. La notation 
utilisée dans les instructions DATA, comme vous le verrez lors- 
que nous analyserons les différentes commandes qu'elles con- 
tiennent, est facile à mémoriser et à utiliser, mais il faut la tra- 
duire avant de l'introduire dans la commande SOUND du 464. 
Quelle que soit la rapidité du BASIC du 464, la tâche consis- 
tant à traduire les commandes jusqu’à trois voix et à les jouer 
simultanément, est au-delà de ses possibilités. Ce serait théori- 
quement possible, maïs la vitesse à laquelle une mélodie pour- 
rait être jouée serait limitée de façon inacceptable. 


Nous avons donc choisi de faire d'abord toutes les traductions 
nécessaires, de stocker les paramètres de chacune des notes à 
jouer dans le tableau S%, et alors seulement de jouer la mélo- 
die, à partir de S%. 


MODULE 3.3.4 : LIGNES 15000-15140 


PE HEXELAELELALESELEEEEEEREEX 
REN #Compilation des données 
FErM AR RACE ECOLE EEE EX 
FOR ce TO À 

l=liveig: De HUE 

n=t 

MHILE aÿgcr.ché2"fin" 

FOR izi TO 8 

1 IF LEFT agp. 1 2e MIDSE "av l£" 
‘1:12 THEN HEXT i 

ee Qt i ee 16 


CAGE, 21004, € 
2186 F=P+1 
el:iif MEN 


15128 dé coen 





® ® 9 

Et pe ét jé jet je je De 
RENE EN EN LR 

D SG 


ce 
Do 


0 Din LB Fan 
St St D 1 


® 
Do 


5 
a 
#! 


Fe 
in 


œ 
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er 


D) 


® 
me 


un Li 


15134 HEXT c 
O514û RETURN 


Commentaires 


Lignes 15030-15130 : L'opération est effectuée pour les trois 
voix, ou canaux, du 464... 


Ligne 15040 : Les variables de cette ligne seront utilisées de 
la façon suivante : 


EL - longueur de note 

V - volume 

O - octave 

EV - enveloppe de volume 
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ET - enveloppe de ton 
P - position dans la séquence des commandes pour une voix 
N - nombre de notes jouées 


Lignes 15070-15090 : Similaire à la technique MENUS uti- 
lisé dans le programme Caractères. Dans cette boucle, la com- 
mande contenue dans A% est comparée avec les commandes 
permises, qui se trouvent dans la chaîne de la ligne 15080. Si 
la première lettre de la commande correspond à l’une des let- 
tres de la chaîne, la variable I de la boucle enregistre la posi- 
tion de la commande et cette donnée sera utilisée par ON...GO- 
SUB. Nous verrons les effets des commandes individuelles 
dans les modules qui leur sont consacrés. Si la première lettre 
de la commande n’est pas l’une des lettres de la chaîne, la com- 
mande est considérée comme une valeur de note. 


Ligne 15120 : Le nombre de notes pour chaque voix est stocké 
dans le tableau D. 


Test 


Le seul test, si l'on peut dire, consiste à placer des RETURN 
sur toutes les destinations spécifiées à la ligne 15090. Le pro- 
gramme sera ensuite exécuté pour que vous puissiez voir qu'il 
n'y a pas d'erreur de syntaxe. Le fait d'ajouter ces lignes 
RETURN vous permet aussi d'exécuter le programme chaque 
fois que vous -appelez l'un des modules suivants, qui traitent 
les données de la mélodie. 


Module 3.3.5 : La valeur d'une note 


L'essentiel de la mélodie sera bien entendu constitué de notes 
et ce module a pour rôle de prendre les représentations des 
notes dans les données de la mélodie et de les rendre compré- 
hensibles. 


Les valeurs des notes elles-mêmes sont entrées d'après le 
système à 12 tons. En musique occidentale, un octave est 
divisé en huit tons entiers et quatre demi-tons, soit 12 notes en 
tout, de sorte que toute note d’un octave peut être représentée 
par un nombre de 0 à 11. Comme il y a une relation mathé- 
matique nette entre les notes d'un octave ou même les notes 
d'octaves différents, il est tout à fait possible d'aller au-delà de 
la gamme de 0 à 11, 12 devenant la première note de l'octave 
supérieur suivant, 24 la première note du suivant, et ainsi de 
suite. Il ne reste plus à ce module que le travail fastidieux 
de traduction. 
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MODULE 3.3.5 : LIGNES 24000-24070 


FENM ÆXFEEE 

FE tHotet 

REN HHEEEE 

frs iée té cote MALE aS$eP cine le 
LE =ROUHOX 125440 fr 2 

EAU: n,92StP : sAConliisl:s 

ZM ESA Can direnvi sente, mn diset 








' DCRN ETC UE EU 


24874 RETURN 
a 


Commentaires 


Ligne 24030 : Cette formule traduit la valeur de note (en 
tenant compte de la valeur de l'octave, 0, que nous verrons 
plus loin), en une valeur de fréquence. 


Ligne 24040 : La valeur de fréquence ayant été obtenue, cette 
ligne la traduit en une valeur capable d'agir sur la commande 
SOUND. Rien de spécial dans cette méthode; tout simplement, 
le 464 est conçu pour fonctionner sur 125000/TRUE FRE- 
QUENCY. 


Ligne 24050 : La présence d'une valeur de note dans les don- 
nées de la mélodie est considérée comme une commande d'exé- 
cution d'une note. Donc les différentes données qui vont cons- 
tituer une commande SOUND sont transférées à partir des 
variables où elles se trouvent, dans une ligne du tableau S%, 
qui sera éventuellement utilisée pour jouer la mélodie. 


Module 3.3.6 : Changement de 
l'octave 


Vous avez sûrement remarqué, que dans la formule d'extrac- 
tion de la valeur d'une note, la valeur de l'octave (O) est prise 
en compte. Cela permet d'entrer les valeurs des notes avec plus 
de souplesse. La première note du deuxième octave peut être 
entrée avec la valeur 12, ou en prenant l’octave 1, spécifier la 
valeur de note 0. Pour spécifier un changement d'octave, il faut 
inclure un O suivi d’un nombre. 


MODULE 3.3.6 : LIGNES 16000-16040 


Sinon REM KXEKKEEE e 
16@ai14 REM #Octavex 
a 16628 FREM KXKEAKKX 8 
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16834 o=VYALCMIDSE agp, ci, 22) 
1 


34 
e 6444 RETLIRH e 





Module 3.3.7 : Spécification du 
volume 


Pour spécifier le volume, incluez V suivi d’un réglage de 
volume correct, dans les données de la mélodie. 


MODULE 3.3.7 : LIGNES 17000-17040 


GO REM #EKKKEEE 
hi REM #Volume*k 






H REM ÆXXKXAEXX e 
A w=YALE MID agp, cr, 
4 RETLURH 







Module 3.3.8 : Définition de la 
longueur de note 


Pour spécifier la longueur de note, incluez L suivi d’une valeur, 
dans les données de la mélodie. La longueur entrée dans les 
données de la mélodie sera multipliée par la longueur de note 
de base définie dans le module d'initialisation. 


MODULE 3.3.8 : LIGNES 18000-18040 . 
PEN KÉELEEXEEEE 


FEM XLonauenur* 
4 REM XXK#KXETHEX 





1=YALEMICSE ag p,c)i.Z)ù 
RETURN 


SE me me 
09 00 00 5 5 
Eve] Lo S D) A 


® ® © 


Module 3.3.9 : Répétition d'une 
partie de la mélodie 


La plupart des mélodies contiennent des répétitions; en fait, 
une mélodie sans répétition ne serait pas facile à écouter. Selon 
les cas, cette répétition concerne de petites ou de grandes par- 
ties de la mélodie. Pour gagner de la place, il est judicieux 
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de prévoir le repérage d’une partie de la mélodie qui doit être 
jouée deux fois consécutivement. Dans ce programme, cette 
section commence et se termine par un astérisque suivi du 
nombre de répétitions de cette partie. 


MODULE 3.3.9 : LIGNES 19000-19090 





e isa 
19414 
13924 
13434 
1348 


e URH 


12956 
13454 
13474 
HET T 
1349% 


REM XÆHKEXXAAEEX 
REM *Répétition* 
REM XKKXEXEREKELE 
IF a$Pp,co="#" THEN r=1:RETURH 
IF YALCMIDS$SCaSCP,c),2))=r THEN FRET @ 


e 


r=r+i 

WHILE a$Pp,cic>"x" 
P=P-1:1F F=-1 THEN RETURH 
WEHC 

FETURH 





Commentaires 


Ligne 19030 : Pour atteindre ce module, la commande des don- 
nées de la mélodie doit commencer par un astérisque. Si l’asté- 
risque est seul, la variable R, qui stocke le nombre de répéti- 
tions de la partie, reçoit la valeur 1. Le programme principal 
reprend alors la main pour la traduction de la mélodie. 


Ligne 19040 : Si l’astérisque est suivi d’un nombre, c'est la fin 
d’une partie. La valeur de R qui indique le nombre de répé- 
titions de la partie, est comparée au nombre suivant l’astéris- 
que, qui indique le nombre de répétitions qui auraient dû avoir 
lieu. Si les deux nombres sont identiques, le programme se 
poursuit au-delà de cette partie. 


Lignes 19050-19080 : Le nombre de répétitions enregistré est 
augmenté et le programme revient au début de la partie pour 
la répéter, avant de revenir au programme principal. 


Module 3.3.10 : Variation des 
parties répétées 


Souvent, lorsqu'une partie de mélodie est répétée, il y a de légè- 
res modifications. La deuxième répétition peut se terminer sur 
une suite de notes hautes, tandis que la première répétition se 
terminait par des notes basses. Ce module vous permet de spé- 
cifier que, dans une partie répétée, un certain nombre de notes 
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ne doivent être incluses que pendant l'une des répétitions. 
Ainsi, vous pouvez répéter une partie deux fois avec deux con- 
clusions différentes. Dans ce programme, nous marquons le 
début de la sous-section avec un symbole { suivi d'un nombre 
représentant le numéro de la répétition pendant laquelle la 
sous-section sera jouée, et la fin de la sous-section par|. 


MODULE 3.3.10 : LIGNES 20000-21030 


EN ÆELELEELEEKEEELEEERELELEREEEEE 9 
FEM #A la nième répétition de Dax 
FEM HEEEEER ER ER EE LEE ÉLEREREELEEEEE 
IF YALEMIDSE agir. cr. Ziier THEH RET 
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D F9 ra 
Rio 
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WHILE a$éP. cite" AND agé p+l, cie 8 


EU 


= frs 


Fap+i 

LEHC 

FETLIEH 

can FEU £XKEXEEEKEZX 

a:itin FEM #Fin de Dot 
LATE REM ÆXEXEXAEEEE 

e 1155 RETUEH 


® 9 9 » 9 


ä 
4 
"E 
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— 
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Commentaires 


Ligne 20030 : Ce point n'est atteint que si le programme a 
rencontré un crochet gauche dans le programme. La ligne exa- 
mine le nombre suivant le [. Si sa valeur est la même que celle 
de KR, qui indique le nombre de fois que la partie en cours a 
été répétée, le programme peut continuer à jouer les notes sui- 
vant le |. 


Lignes 20040-20060 : Cette boucle est utilisée si la sous-sec- 
tion ne doit pas être jouée pendant cette répétition ; elle recher- 
che simplement après la sous-section jusqu'à ce qu'elle trouve 
le symbole ] de fin. 


Ligne 21030 : Lorsque un |] est rencontré, cette ligne permet 
simplement au programme de continuer. 


Module 3.3.11 : Changement 
d’enveloppes 


Vous avez déjà créé une enveloppe, mais le 464 peut en définir 
jusqu'à 16 pour le volume et le ton. En plaçant ENV ou ENT 
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suivi (sans espace) du nombre correct d'une enveloppe que 
vous avez définie dans le module à 25000, vous changez l’enve- 
loppe utilisée par la commande SOUND. 


MODULE 3.3.11 : LIGNES 22000-22050 


FRENM ÆXEEELEAELEE 

FENM #EnveloPresx 

FEM ed 

Ga IF LEFT agir. ci ny" THEH evyz 
VAL IDC 8€ P Pc: A 






® 
Fe Fig Pi Pi 
ns Ni D Po 
a DARAELX 
o Mrs 
un St 


THEH etz 
YALE MI Cage, e re 4: à 
ces 4 FETLRH 


Module 3.3.12 : Création d’un 
silence 


Dans une mélodie, les silences sont aussi importants que les 
sons, donc nous devons pouvoir en créer. Dans ce programme, 
nous l’obtenons en incluant R dans les données de la mélodie. 
Un seul R crée une pause de la longueur d’une unité de note, 
tandis que R suivi d'un nombre crée une pause d'une longueur 
égale au nombre. 


MODULE 3.3.12 : LIGNES 23000-23060 ___ 





@essnn REM *#XKXEEX e 
2ania FEM #Fause* 

ete FEM XX#XYEX e 
ESGTA IF a$ércoz"r" THEN duzl ELSE duz 

pt Per EH e 
sd exc, n, Miss , miisdu:sx(c; n21 
sfiskic.mgishisextc, n, 41zû 

023654 n=n+1 e 
£S4ég RETURN 

a & 





Test 


Si vous ne l'avez pas fait pendant l'entrée des modules indivi- 
duels, vous pouvez à présent exécuter le programme. Chacune 
des sections sera appelée pendant l'analyse des données de 
la mélodie. 


138 Son et lumière 


Module 3.3.13 : Le menu de 
programme 


Il s’agit d'un menu qui permet simplement d'accéder aux 
autres fonctions du programme. 


MODULE 3.3.13 : LIGNES 11000-11140 


FEN HÆAKÆXEEEEX 

REM #Controle* 

PEN HXEXEXEEEX 

n3@ WHILE o<>3 
11444 CLS:PRINT TABC 182; "MUSIQUE"; TAES1E 

11454 PRINT:PRINT"'Ortions: ":PRINT 

1064 PRINT"{5 Changer les Paramètres" 
11474 PRIHT"Z5 Jouer la musique" 

@i1g84 PRINT"35 Fin" 
11994 PRINT: IHPUT'"'Entrer 1'o 

ÜN à GOSUR 1240ù,134aa 

WEHC: 

CLS 

LIST 2504 

EHC 





— 


io 
fs ds 1) 


El ed 
be ré pe 
SEX] 

us 

DA EE 


Ption: "a 


Lt 
CS 
En 


ré jh ré ps à 
CEE 

rares re 

L£ 1 PO mm 15 

SL 
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Module 3.3.14 : Changement des 
paramètres de la mélodie 


Lorsqu'on en arrive à jouer la mélodie, plusieurs paramètres 
sont utilisés, que vous pouvez modifier avec ce module. 


MODULE 3.3.14 : LIGNES 12000-12110 


(Es) 12404 REM KELELHERAEEEEXETÉEERÉEEAEERE 
12419 REM #Chan@er les Paramètres* 

e 12A2A REM HEKAKAEAMEEEELR EE EREXAELERXE e 
12424 CLS: PRINT TAB 1252; "CHANGER PARAMET 





e FES"; TAB 123; "asssssssessssssess" : PRINT e 

1eñ44 PEN Z:PFRINT"'ENTER"; :PEN 1:PRINT" F 
our ne Fas changer les Faramètres "PRINT 

02959 FRINT'octave relatif C"iroci: INPUT @ 
Mu oi" RS: IF x$<5"" THEN roczVALé x$ 

@ 1:26 PFRINT'note relative €'iraci : INPUT" @ 
niMoiuS:IF x$S<2"" THEN rnozVALé «Si 

e 1:27 PRINT" lonaueur d'unité €"iul;:INFU @ 
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Ti it mb IF hit THEN ul=YALC x 
eliies FOR c=ù TO 2 





12098 PRINT"canal" ici" "pe; : INPUT": 

in ubiIF Se" THEN P$ce =UPPERSC 6 
Oisinn HEXT c e 
mn 12119 RETURN 


e 





Commentaires 


Ligne 12050 : L'octave relatif est la base à partir de laquelle la 
note à jouer est calculée. 


Ligne 12060 : Avec l'octave de base, les notes jouées peuvent 
être calculées sur la base d’une note particulière, ce qui change 
la clé. 


Ligne 12070 : Unité utilisée pour jouer une note. Une valeur 
plus élevée ralentit la musique. 


Lignes 12080-12100 : Toutes les voix ne doivent pas être 
jouées; cette boucle permet d'en exclure certaines. 


Test 


Si vous exécutez le programme, après la pause permettant de 
recalculer les données de la mélodie, le menu doit apparaître. 
Vous pouvez sélectionner l'option 1 et spécifier les paramètres 
de votre choix. 


Module 3.3.15 : Contrôle de la 
musique 


Nous passons aux deux modules qui vont réaliser l'essentiel du 
programme : jouer une mélodie. Le premier est un module de 
contrôle qui distribue le travail et permet de terminer la mélo- 
die, le module suivant joue les notes. 


MODULE 3.3.15 : LIGNES 13000-13160 ____ 


REM HAE AOEEK 
RENM %Kilouer la musiquex 
REM HR ER OEERCEUEE 
réparé proc+eno-123 
e 12940 FÜR c=8 TO 2 

LAS pPLco=A 

13969 NEXT « 
@i547a SOUND 193,4. 





ei: 
13414 
130284 
® 13450 


34 
24 
KI 
3 


® 2 ® 9 


140 Son et lumière 


13084 GOSUE 14aua 
@1:u3% GOSUE 14aaa 
13189 GOSUB 144@a 
@1:119 RELERSE 7 
15124 fait=A 
e1:15% UHILE NOT fait 
15149 GOSUE 14aaa 
1315G WEND 
@1:164 RETUPH 


® ® D 9 





Commentaires 
Ligne 13030 : Base à partir de laquelle la mélodie est jouée. 


Lignes 13040-13060 : Le tableau de comptage P, pour les trois 
voix, est mis à 0. 


Ligne 13070 : Cette instruction ne joue pas une note; c'est une 
commande de service qui joue trois rôles : 


1) Supprimer toutes les notes qui pourraient se trouver dans 
la file d'attente depuis l'utilisation précédente. 

2) Spécifier que les commandes doivent être envoyées aux 
trois voix. 

3) Empêcher que des notes ne soient jouées. 


Le nombre 199 n'a pas vraiment de signification : c'est simple- 
ment le moyen de donner la valeur 1 à certains chiffres binai- 
res ou bits. Dans le cas de 199, les bits 0, 1, 2, 6 et 7 sont 
actifs. Vous trouverez au chapitre 6 de ce manuel des détails 
sur les effets de ces bits. 


Lignes 13080-13110 : Ces trois branchements au module sui- 
vant créent une file d'attente de notes attendant d’être jouées. 
Ainsi, les légers retards pouvant provenir de la boucle qui joue 
la partie principale de la mélodie n'influenceront pas la régu- 
larité de la mélodie elle-même. La commande RELEASE à la 
ligne 13110 fait commencer les trois voix simultanément dès 
que les premières notes de la file d'attente ont été formées. 
Cette possibilité de file d'attente du 464 est l'une de ses 
caractéristiques musicales les plus remarquables. Sur la plu- 
part des autres micros, le rythme d'exécution des notes est 
extrêmement difficile à maîtriser, car tout retard dans le trai- 
tement d'une note a un effet négatif sur le rythme. Le 464 per- 
met d'éliminer ce problème; le programme en devient à la fois 
plus simple et efficace. 
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Lignes 13120-13140 : Le reste de l'exécution de la mélo- 
die consiste tout simplement à appeler le module suivant con- 
tinuellement, jusqu'à ce que la variable FAIT, définie par le 
module suivant, indique que les données de la mélodie sont 
épuisées. 


Module 3.3.16 : Exécution des notes 


C'est le dernier module qui joue les notes pour les trois voix. 


—— MODULE 3.3.16 : LIGNES 14000-14120 

@ Lili RENM ÆHÉKÉXKEERELERELELEEEXEX e 
14414 REM #Examen des Canaux* 

its REM ÆHEEREKEREEREREEEENRX ae 
14954 fait=-1 

e 4:45 FOR c=g TO 2 e 
14954 IF pécozd(cr OR p$ci="H" THEH GOT 








î 14114 
Oi4n6a fait 

14G7A IF € 
ein 

dns nepPic'i 
@14494 SOUND Ze, sc con Mr EP. SCC nm 1)# @ 
UlaSAt Can 2 ho ak Co na SAC d à 
14196 PECI=PÉ CI] e 
14119 HEXT 
14124 FETLIFH 






à e 
Gé 2er AND 7)=4 THEN GOTO 141 


= 
= 
Less 











e@ e 






Commentaires 


Lignes 14040-14050 et 14110 : Que les trois voix doivent être 
jouées ou non, cette boucle va les examiner toutes les trois. 
Toutefois, la ligne 14050 détecte si une voix particulière a 
épuisé toutes ses données ou si l'utilisateur a redéfini les para- 
mètres afin d'exclure une voix particulière. S'il y a au moins un 
accès à la partie principale de la boucle (c’est-à-dire s'il reste 
des notes à jouer pour au moins une voix), la valeur de FAIT 
est mise à O. 


Ligne 14070 : La fonction SQ permet de déterminer s’il est pos- 
sible de placer une autre note dans la file d'attente de la voix 
en question. 
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Lignes 14080-14100 : S'il est possible d'ajouter une autre note 
à la file d'attente, le prochain ensemble de données de S% sert 
de base à la commande SOUND. A noter que cela n’'exécute pas 
immédiatement une note, mais ne fait que l'ajouter à la file 
d'attente des notes en attente d'exécution. Pour finir, le comp- 
teur de la voix en question est incrémenté. 


Test 


Enfin, vous allez pouvoir faire un test réaliste du programme. 
Pour cela, il vous suffit de le lancer et, lorsque le menu appa- 
raît, de spécifier l'option 2. Vous saurez immédiatement s’il 
fonctionne. 


À 


Ca se complique 





A ce stade de votre progression, vous devez vous sentir plus 
familiarisé avec les possibilités du 464 et de certaines de ses 
techniques. Il est temps de passer à certains programmes plus 
importants qui vont permettre à votre 464 de se livrer aux 
tâches préférées des micro-ordinateurs : le traitement, le tri et 
la recherche d'informations. 


Voici les programmes de ce chapitre : 


UNIFILE : Un puissant système de classement personnel 
capable de stocker et de relire immédiatement une grande 
variété d'informations. 


NNOMBRE : Un programme qui crée un dictionnaire de Noms 
et de Nombres pour toutes sortes d'applications. Vous pourrez 
créer des factures, gérer un stock, ou même compter les calo- 
ries des menus quotidiens. 


TEXTE : Un programme de traitement de texte simple exécuté 
en BASIC. 


MULTIQ : Un générateur de test à choix multiples. 
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PROGRAMME 4.1 : UNIFILE 


Fonction du programme 


Unifile est une merveille de programme, fruit de plusieurs 
années de développement dans les livres «Activités sur». Les 
lecteurs des ouvrages précédents nous ont déclaré les utiliser 
dans leurs activités professionnelles, pour apprendre aux élè- 
ves la technique de traitement de l'information par des micros, 
pour aider des clubs et des associations bénévoles, ou simple- 
ment pour leur gestion familiale. 


Ce programme présente les nouveaux concepts suivants : 


1) Recherche binaire 
2) Regroupement d'éléments en chaînes continues 
3) Lancement d’un programme sans effacer les tableaux. 


Module 4.1.1 : Création de la 
structure du fichier 


QENTREE 1 
NOM : ELANC 
@ FFENOM: JEAN 
ADRESSE 1:UNE RLE 
e APRESSE 2:UHE VILLE 
ADRESSE 3:UME REGION 
a FFE EI 234 56 F8 


COMMANDES DISFONIBLES : 


ENTER Pour donnée suivante 
ee’ Four modifier 
Four continuer la recherche 
suivi d'un nombre Pour déplacer 
le Pointeur 
Pour quitter la fonction 


Votrec choix: 





e@ 
6 
8 
L. 
e 
e 
6 
e 
# 


Unifile en Mode Recherche 


De nombreux ouvrages destinés aux utilisateurs d'ordinateurs 
domestiques proposent des programmes de gestion de fichier 
de qualité inférieure, manquant de souplesse d'utilisation. La 
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nature du programme impose à l'utilisateur, chaque fois qu'il 
stocke une donnée, de le faire sous les intitulés : Nom, Adresse, 
Numéro de téléphone ou autres structures similaires. L'intérêt 
d'Unifile est que, tout en autorisant une telle structure, il per- 
met aussi de créer d’autres fichiers sous des structures différen- 
tes; peut-être avec un intitulé, peut-être avec dix, sans modi- 
fier en quoi que ce soit le programme lui-même. Unifile est 
un programme du type »caméléon» : prêt à s'adapter à une 
grande variété d'utilisations, réagissant avec l'utilisateur selon 
la tâche à effectuer. 


Ce premier module a pour but d'initialiser quelques variables, 
mais aussi et surtout de vous permettre de bâtir le fichier d'ori- 
gine tel que vous le souhaitez. 


MODULE 4.1.1 : LIGNES 20000-20110 


® LGGAA REIN KXAKEKAKAEEREEEKELAXEEKEX 
cag14 KEM XCréation d'un fichierx 
cAUEA REM XXKÆKKAKAKKAXEREEEREKAKKE 
EU CLS :PRINT TAE( 12); "Nouveau Fichier 

:FRINT TAB 122); "=sssszesssszzse2z" 

cag4g FRINT:INFUT'"'Etes-vous certain (o/n 
»"ir$:IF LEFTSCUPPERS(rS2,12="H" THEN RE 
TURN 
<49S4 CLEAR:DIM tableau$ 1906 ) 

® 24964 PRINT: INPUT"Combien de données dan @ 
s chaîue entrée";x 

e 20970 DIM item$ex-12,Ptréx-10 e 
2090886 PRINT:FOR i=@ TO x-1 

ae 2990 PRINT"'Nom de la donnée #";i+1;: INF @ 
UT'":",item$s i ) 

e 20095 iten$( i )>=UPPERSC item# i 2) e 
c81A04 NEXT i 
24118 in=-1:G0OTO 11404 e 





Commentaires 


Lignes 20030-20040 : La création de nouveaux fichiers va effa- 
cer tout le contenu de la mémoire. Donc, vous avez la possibi- 
lité de ne pas poursuivre. 


Ligne 20050 : L'information destinée à Unifile sera stockee 
dans le tableau TABLEAUS. Dans cette ligne, il est dimen- 
sionné pour autoriser 1001 entrées dans le fichier. Vous pou- 
vez porter ce nombre à 2000 ou plus. Il faut simplement savoir 
que chaque élément du tableau, avant d'être utilisé, occupe 
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trois octets de mémoire. Donc, si vous dimensionnez le tableau 
avec 5000 données, vous utiliserez 15000 octets de mémoire, 
soit un tiers de la mémoire disponible, avant d'avoir stocké 
une quelconque information. À vous d'évaluer : si vous pensez 
avoir moins de 1000 entrées dans un fichier, il est peut-être 
bon de laisser l'instruction DIM en l'état et d'épargner un peu 
de mémoire. A noter aussi que, comme nous utilisons un élé- 
ment d’un tableau pour stocker chaque entrée, la longueur 
maximale d'une simple entrée y compris ses caractères de 
séparation, est de 255 caractères : la longueur maximale d'une 
chaîne pouvant être traitée par le 464. 


Lignes 20060-20100 : Dans ces lignes réside partiellement le 
secret de la souplesse d'Unifile. Pour chaque entrée, que vous 
pouvez imaginer comme une fiche de classement, vous pouvez 
définir le nombre de données qui apparaîtront dans l'entrée. 
S'il s'agissait de votre collection de disques, vous pourriez uti- 
liser les intitulés : PISTE, ALBUM, COMPOSITEUR, INTER- 
PRETE, DUREE. Dans ce cas vous spécifieriez cinq données 
puis vous entreriez leur nom. Dans le futur, chaque fois que 
vous utiliserez Unifile pour stocker ou lire des informations 
sur votre collection de disques, vous devrez donner une don- 
née correspondant à chacun de ces intitulés. Pour employer un 
langage plus technique, ce que nous appelons une entrée pour 
désigner la fiche de classement et des données pour chacun 
des intitulés, s'appelerait en jargon informatique des enregis- 
trements et des zones (ou champs) respectivement. Pendant 
les divers commentaires sur le programme, nous expliquerons 
l'utilisation des variables définies ici. 


Module 4.1.2 : Mise en route du 
programme 


La possibilité de créer un nouveau fichier n'est pas utilisée 
chaque fois que le programme est exécuté. Le plus souvent, 
il s'agira de recharger des données à partir d'une cassette. Ce 
module de mise en route vous permet simplement de choisir 
l'une de ces deux options. 


MODULE 4.1.2 : LIGNES 10000-10150 


A REM HKÉEKELEREREEREX | 
äH KEM #lise en route* 
A FEM KKKXKLEEEEEEERXX e 





14859 WHILE NOT in 
1AE4G CLS 
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e 14856 PRINT TABS 125; "CREATION GUN FICHI e 
G PRINT THE 12ù:" 


pa 


dl 


iii He 


S 


FRINT 
FRIHT'COMMANGES CISPONIELES : " 
FRIMT 


ee! 
1 
e | 


FRIHT"15 Créer monveau Fichier 
PRINT"£3 Lecture sur cassette” 
14124 FRIHT 

18159 INPUT"VYobre cho 
18144 ON z GOSUE 244 
14159 WEHC 


Pt be III 21 
x IT LD Ô 
en a or 


pe pe 


FE 
A, ZiE 





Commentaires 


Lignes 10030 et 10150 : Ces deux lignes représentent une 
technique très utile que nous vous conseillons dans vos pro- 
pres programmes. Lorsque le programme est initialisé par le 
premier module entré, une variable IN (abréviation de INitiali- 
sation) a reçu la valeur -1. Cette boucle explique pourquoi. Si 
IN a la valeur -1 lorsque la ligne 10030 est atteinte, cette bou- 
cle n'est pas exécutée. L'opérateur NOT associé à WHILE à la 
ligne 10030 ne permet d'entrer dans la boucle que si la valeur 
de IN est 0. Donc, si vous arrêtez le programme et si vous le 
relancez avec GOTO 10000 (ou GOTO 1 si vous avez inclus le 
petit module SAVE recommandé dans le premier programme 
de ce livre), aucune des données en mémoire n'est détruite. 


Test 
Entrez une ligne temporaire : 
11000 STOP 


Exécutez le programme et spécifiez que vous voulez créer un 
nouveau fichier. 


Suivez les indications et répondez en donnant quelques nom- 
bres et quelques noms vraisemblables. Puis le programme 
s'arrête. Entrez : 


GOTO 10000[ENTER] 


Le programme s'arrête immédiatement : il a détecté un fichier 
en mémoire, bien qu'il soit vide, et il a contourné le module 
à 10000. 
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Module 4.1.3 : Le menu 


Il s'agit d’un menu standard, mais qui ne permet pas d'arrêter 
le programme au moyen de ON ERROR et de la touche ESC. 
Unifile est un programme complexe et le fait de l'arrêter en 
plein milieu pourrait altérer une partie de ses informations, du 
fait qu'une opération importante n'est pas allée à son terme. 
Pour mettre fin à Unifile, vous devez toujours revenir à ce 
menu et utiliser l'option 6. 


MODULE 4.1.3 : LIGNES 11000-11210 


Olinna FENM KEXKÉEEEEEEERERERE 
11R14 REM Menu FrinciPal* 


















CLS & 
FRINT TAB 12: "Création d'un fichi 





GE FRINT TARS 12 "asesesessmesecsessz Le) 

Aara FRIHT e 

G5@ PRINT'COMMANDES CISFONIBLES:" 

a34 PRINT e 

14G4 FRIHT"12 Créer nouveau fichier" 

114 PRINT"Z: Charaer fichier cassette" @ 

124 FRIHT"39 Entrer des informations" 
11134 FEINT"4ù Rechercher /Afficher/Madif 

e jer" e 

11148 PRINT"S) Sauvezarde fichier sur Ca 
ssette" 


11154 FRIHT"6) Arreter" 
11169 FRINT 
11174 INPUT'Yotre choix: ", 


nn, ne den ds 1 


Module 4.1.4 : Arrêt du programme 


Ce petit module affiche le message de fin pour le programme 
et définit la valeur de la variable FAIT pour informer le menu 
que le programme doit s'arrêter. 
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MODULE 4.1.4 : LIGNES 22000-22060 


Q:ECAS RENM HEEXHETE 
LEE FER £Arrett 

RENM ŒXEEEESE 
faitz-i 
CLS :LOCATE 11.13 
FRIHT'SSESTEME DE FICHIERS FERME": 
FRIHT 
1 RETL IRN 





éation d'un fichier" 


THPUT ts 
FEIMT t$ 
GOTO 25416 


Test 
Entrez : 
GOTO 11000[ENTER] 


Le menu s'affiche. Spécifiez l'option 6 qui met fin au pro- 
gramme. 


Module 4.1.5 : Sauvegarde des 
données sur cassette 


Lorsque vous écrirez des programmes plus complexes, qu'ils 
soient de cet ouvrage ou vos propres programmes, vous souhai- 
terez entrer le module DATA FILE (fichier de données) le plus 
tôt possible. En effet, ce n'est qu'avec de grandes quantités de 
données que vous pouvez tester de façon approfondie Unifile. 


Comme vous risquez de faire des erreurs et que les données 
peuvent être altérées, vous serez contraint de réentrer plu- 
sieurs fois les mêmes données au fur et à mesure du dévelop- 
pement du programme. Pour pallier cet inconvénient, il suffit 
de stocker ces données sur cassette dès que possible et de relire 
les informations à partir de la cassette, pendant les tests suc- 
cessifs. 


Ce module vous permet de stocker des données et vous pré- 
sente aussi une idée dont nous avons parlé mais que nous 
n'avons pas encore utilisée : permettre à un programme de 
lire ou de stocker des fichiers ayant une grande diversité 
de noms. 
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MODULE 4.1.5 : LIGNES 18000-18080 
G1Suan FEM XXFEKAKEEEEEELELELELELEREE 
18414 REM KSauve9arde D'un fichier* 
e 1:029 REM XXKKEKEEKEKAEXAEAAELEEETE 
18039 CLS:PRINT TAB 129; "Sauvegarde Fic 
e"icr” : PRINT TABC 18 d"'ssesessesesessesese" e 
1664@ PRINT:INPUT"Hom de sauvesarde: ",f 










PRINT:OPENOUT fi$:PRINT#9, it:PRINT @ 
FOR i=à TO it-1:PRINT#3,tableau$( i @ 
e 1807a FOR i=à TO x-1:PRINT#9, item$( i:NE @ 


AT i 
e 18984 CLOSEOUT : RETURN e 





Commentaires 


Lignes 18030-18040 : Le nom du fichier est spécifié de 
façon interactive. 


Lignes 18050-18070 : Le nombre d'entrées contenues par Uni- 
file à n'importe quel moment est stocké dans la variable IT, 
tandis que X enregistre le nombre de données de chaque 
entrée. Les lignes enregistrent tous les éléments utiles prove- 
nant de TABLEAUS et les noms d'intitulés provenant de DON- 
NEE$. 


Module 4.1.6 : Chargement des 
données à partir de la cassette 


Nous allons à présent relire les données déjà enregistrées sur 
cassette. C’est moins simple qu'il n'y paraît car, alors que, lors 
de la sauvegarde, tous les tableaux étaient déjà correctement 
dimensionnés pour le fichier en mémoire, lorsqu'un fichier 
est chargé à partir d’une cassette, il faut réinitialiser tous les 
tableaux. C'est pourquoi nous avons placé les variables IT et X 
au début du fichier, pour qu'elles puissent être d’abord relues 
en mémoire, puis utilisées pour dimensionner les tableaux tout 
comme au premier module, où elles ont été entrées par l'utili- 
sateur et non lues automatiquement. 
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MODULE 4.1.6 : LIGNES 21000-21140 


821000 REM KXKXKEKEXAKKEKEEEKKEXEREEE e 
21419 REM XCharSement d’un fichiertk 

e21928 REM XXKAXKAKEREEREREEREREENX 
21939 CLS:PRINT TAB 1253: "CharGement fich 
jer":PRINT THEK 12 3; "ssesssesemamenmenmseni 
21049 PRINT :INPIT'Etes-vous certain (o/n 
D'sr$: IF LEFTSUFPERS( r$2, 12="N" THEN RE 

O TURN e 
21654 CLEAR:DIM tableauS$< 198 ) 

821964 FRINT:INPUT'"'Nom du fichier à sauve @ 
raarder: "fi 

@21079 PRINT:OPENIN fi$:INPUT #93,it,x:DIM @ 
item$éx-1),Ptréx-10 

ec1984 FÜR i=9 TO it-1 e 
21994 INPUT #3, tabhleaug$é i 2 

e1188 NEAT i e 
2111@ FOR izd TO x-1 
21124 INPUT #9, item$c i à 

021134 NEXT i e 

se in=-1:CLOSEIN:GOTO 119@a Ë 


























Commentaires 


Ligne 21140 : Peut-être l'instruction GOTO à la fin d’une sous- 
routine vous surprend-t-elle. Elle ne peut pas être rempla- 
cée par un RETURN, car pendant le déroulement du module, 
la mémoire a été effacée pour permettre le redimensionnement 
des tableaux. Cet effacement a également affecté toute mémo- 
risation associée à la commande GOSUB d'origine, et donc 
RETURN ne trouvant plus de destination, génèrerait simple- 
ment un message d'erreur. 


Test 


Exécutez le programme en spécifiant une création de nouveau 
fichier. Créez quatre données, nommées UN, DEUX, etc. Lors- 
que le menu apparaît, choisissez l'option 5 puis spécifiez un 
nom de fichier tel que UNIDATA. Avant de commencer l'enre- 
gistrement, assurez-vous que le lecteur contient une cassette 
correcte. Lorsque le programme revient au menu, arrêtez-le 
avec l'option 6, puis lancez-le à nouveau. Cette fois-ci, spéci- 
fiez un chargement à partir de la cassette, donnez le nom du 
fichier de données et lisez (replay) ce fichier lorsque le pro- 
gramme vous le demande (après avoir rebobiné la cassette bien 
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entendu). Lorsque le menu réapparaît, arrêtez le programme à 
nouveau. Entrez : 


FOR I=0 TO X-1 :PRINT DONNEES$(I) :NEXT[ENTER] 


vous devez obtenir l'affichage des quatre intitulés. 


Module 4.1.7 : Une meilleure 
méthode de recherche 


Dans ce module et les deux suivants, nous examinons com- 
ment ajouter une nouvelle entrée au fichier principal contenu 
dans TABLEAUS. L'essentiel de la méthode se trouve toutefois 
dans ce module qui permet à Unifile de trouver rapidement 
dans un grand fichier l'endroit correct pour insérer une nou- 
velle entrée, ou de rechercher rapidement la présence d’une 
entrée importante dans le fichier. 


La méthode est appelée ‘recherche binaire’. Elle réduit le temps 
de recherche dans tout programme contenant de longues listes 
de données ordonnées. Nous allons le voir avec l'exemple sui- 
vant. 


Un fichier de 2000 noms a été créé. Nous voulons insérer un 
nouveau nom en respectant l'ordre alphabétique. Si nous tri- 
chons et examinons la liste des noms, nous savons que le nou- 
veau nom ‘’YOUNGERS" doit aller dans la position 1731 du 
fichier, bien que l'ordinateur l’ignore encore. 


Bien sûr, nous pouvons demander à l'ordinateur d'examiner les 
noms un par un à partir du début. Il commence avec 'ADAMS' 
et constate que ‘’YOUNGER"’ doit venir après, puis il passe à 
"ADAMSON' et ainsi de suite. Après avoir examiné 1732 noms, 
il trouvera un nom tel que 'YOUNGMAN' qui doit se trouver 
après ’YOUNGER’. Ainsi, la position correcte a été trouvée. 


Certes, cette méthode est sûre, mais nous aimerions bien 
réduire le nombre de comparaisons. Et bien, dans le cas 
de notre fichier de 2000 noms, 10 comparaisons vont suffire. 
Voici comment. 


L'ordinateur commence la recherche en examinant le nom à 
la position 1024 du fichier, parce que 1024 est la plus grande 
puissance de deux (210) qui contienne dans le nombre total 
d'entrées (2000). Le nom de la position 1024 précède alphabé- 
tiquement 'YOUNGER’, donc l'ordinateur ajoute 1024/2 ou 512 
ou 29, à la position de recherche initiale, et arrive à 1536. A 
nouveau, le nom de cette position précède alphabétiquement 
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"YOUNGER’ donc 256, ou 28, est ajouté à 1536, pour donner 
1792. Ici, nous trouvons du nouveau. Le nom de la position 
1792 suit dans l'ordre alphabétique 'YOUNGER’, donc au lieu 
d'ajouter 128 ou 27, ce montant est soustrait de la position de 
recherche, pour donner 1664. 


Et ainsi, la recherche se poursuit, en ajoutant ou en soustrayant 
des puissances décroissantes de 2 pour bâtir le profil de recher- 
che suivant : 


NUMERO DE COMPARAISON POSITION ACTION 
1 1024 +512 
2 1536 +256 
3 1792 -128 
4 1644 +64 
5 1728 +32 
6 1760 -16 
7 1744 -8 
8 1736 -4 
9 1732 -2 
10 1730 +1 


Essayez vous-même avec différents nombres ou entrées, et 
différentes positions dans l'ordre. Vous constaterez que le 
résultat est toujours bon. 


MODULE 4.1.7 : LIGNES 13000-13110 


@ 129000 REM KXKKKAKKEAKEXAEEAAMX e 
13019 REM *XRcherche binaire* 
e 13224 REM KKXKKXKEREREEKANANX e 
13030 IF it=@ THEN 2s=0@:RETURN 
e 13049 POo=INTÉ LOGE it 2/LOGC 2 )):es=2"po-1 e 
13958 FOR i=ro-1 TO 9 STEP -1 
13969 ss5=53+2"1%C< tableau ss 1>te$)-(tab 
O6 isaut(ss tes )) e 
e 
e 
æ 














13079 IF ss<@ THEN 559 
0139684 IF ss>it-1 THEN sezit-1 
1309G NEXT ji 
13106 IF tahleauSssi<tes THEN sszestl 
13119 RETURN 





Commentaires 


Ligne 13030 : S'il n’y a pas d'entrées dans le fichier, le calcul 
entraîne une erreur. Cette ligne évite cette situation. 
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Ligne 13040 : Ces deux expressions trouvent la plus grande 
puissance de 2 qui pourra être contenue dans le nombre de 
rubriques du fichier, puis elles donnent cette valeur au poin- 
teur de recherche (SS). Le ’-1’ de la deuxième expression prend 
en compte le fait que le tableau est numéroté à partir de 0, et 
non de 1. 


Lignes 13050-13090 : Cette boucle conduit la recherche, avec 
des puissances décroissantes de 2. Le fichier principal est con- 
tenu dans TABLEAUS et la nouvelle entrée dans TE$. La valeur 
du pointeur est définie par deux conditions logiques qui 
indiquent si TE$ est supérieur ou inférieur à l'entrée de 
TABLEAUS (SS). 


Ligne 13100 : Dans certains cas, la position obtenue sera infé- 
rieure de 1 à la position correcte. Dans ce cas, SS est augmenté 
de 1. 


Module 4.1.8 : Insertion d'une 
donnée 


Ce module insère la nouvelle entrée à la position indiquée par 
la variable SS. Pour cela, il suffit de tout déplacer d’une posi- 
tion vers le haut à partir de la position SS. 


MODULE 4.1.8 : LIGNES 14000-14070 


O 14004 REM KKKKKEKKMEKXEXEXERENEAEX 
14910 REM XInsertion d’une entréex 

@ 14028 REM KXKKE REX ALAAMERERERTERNEX 
14030 IF it=0 THEN GOTO 14679 





e 14940 FOR izit TO ss+i STEP -1 
14959 tableaus$ i >=tableaus( i-1) 
e 14969 NEXT i 
1497@ tahleau$( ss >=te$:it=it+1: RETURN 


Module 4.1.9 : Saisie de nouvelles 
entrées dans le fichier 


Après avoir entré les modules qui font le travail réel, nous 
allons voir celui qui permet de saisir des données dans le 
système de fichiers. Ce module vous invite à entrer le nombre 
correct de données, dans le bon ordre, pour chaque entrée, afin 
de combiner ces données dans une chaîne qui sera contenue 
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dans une ligne de TABLEAUS ; puis il appelle les deux modu- 
les précédents pour placer les données ainsi saisies dans le 
fichier principal. 


MODULE 4.1.9 : LIGNES 12000-12320 


@ ic REM XAKALEEELALEREELREEX 
12418 REM *Houvelles entréesx 

e 12020 REM KXKKEAXEEXELELELEAX 
12424 WHILE it<1aug 
12444 teÿ="" 

Oisasa CLS 
12464 PRINT TAES 182; "HOUVELLES ENTREES" 

& PC) PRIHT TRES“ 14 LE M as ou emma mm co tee co cos mem came 08 
12484 PRINT 

@1:454 FRINT'Huméra de l'entrée";it+i 
12104 FRINT 

@12119 FRINT'COMMANDES DISPONIBLES :" 
12124 FRINT 

e 12134 FRINT'Entrer la donnée spécifiée" 
12149 PRINT"‘'S" Pour revenir au mens Pri 
nçciFal" 

612154 PRINT 
12224 FOR i=9 TO x-1 

012234 PRINT item$é id; :INPUT":",9% 
12249 IF 9$="S" THEN RETURN 

@i2256 te$=te$+UPFERSC 9$2+"E" 
12269 MEXT i 

& 12279 FRINT:PRINT'"'Attendez un instant .. 
12284 GOSLE 13444: GOSUB 1444 
12294 WEHD 
123@4 CLS 

012314 PRINT"'### DESOLE, PLUS C'ENTREES PF 
OSSIELES *4*" 

@12329 FOR izi TO SGAG:MEXT 1: RETURH 








# 2 229939999999 


Commentaires 


Lignes 12030 et 12290-12320 : Les entrées ne sont acceptées 
que s’il y a de la place pour les accueillir; sinon, un message 
d'erreur apparaît. Si vous vouliez changer le nombre maximum 
d'entrées, vous devriez remplacer cette référence par 1000. 
Vous pourriez aussi la remplacer par une variable, à condition 
de définir cette dernière lors de l’initialisation du programme 
et de la sauvegarder lorsqu'un fichier particulier est stocké. 
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Lignes 12220-12260 : Ces lignes demandent l'entrée des don- 
nées individuelles de la nouvelle entrée. Le nom de cha- 
que donnée provient du tableau DONNEES, créé par le module 
d'initialisation. Chaque donnée est entrée sous le nom Q$ et 
l'entrée des nouvelles données est terminée dès que Q$ est égal 
à ’ ’, quel que soit l'endroit. Si la donnée est différente de ’ ’, 
elle s'ajoute à TE$ qui contient l'entrée globale et un caractère 
’ ! est ajouté à la fin de la donnée. Ce caractère ’ ‘ n'a rien à 
voir avec le précédent qui terminait la saisie de l'information, 
il indique simplement la limite entre deux données. Ainsi, une 
entrée du type 


DURAND 

JEAN 

11 RUE BLANCHE 
POISSY 


serait stockée dans TABLEAUS sous la forme : 
DURAND JEAN 11 RUE BLANCHE POISSY 


créant une ‘chaîne compactée’. La raison du choix du signe ‘ 
" est qu'il est peu probable qu'il figure réellement dans une 
entrée ; si c'était le cas, choisissez un autre caractère de sépa- 
ration. À noter que toutes les données entrées sont converties 
en majuscules. Nous verrons plus tard qu'il en est de même 
pour la recherche de données dans le fichier. Cela facilite 
l'entrée et la recherche dans le fichier, puisque le système 
ne distingue pas les majuscules des minuscules. Si vous vou- 
lez distinguer des majuscules des minuscules, cette possibilité 
peut être supprimée sans que le fonctionnement du programme 
en souffre. Toutefois, sachez que, pour le 464, toute lettre 
minuscule est considérée, dans l'ordre alphabétique, inférieure 
à toute lettre majuscule; donc le classement de votre fichier 
risque de paraître étrange. 


Test 


Vous pouvez à présent tester les trois derniers modules entrés. 
Lancez le programme et créez un fichier avec deux données par 
entrée, appelées ‘UN’ et ‘DEUX’. Après avoir initialisé le pro- 
gramme et être revenu au menu principal, spécifiez l'option 
3. L'affichage obtenu est celui du module en cours; il vous 
demande d'entrer la donnée UN". Entrez ’AA1'. Le message 
se répète pour ‘DEUX’ et vous devez entrer ‘AA2'. Répondez 
aux messages successifs par 'DD1', 'DD?2’, 'CC1', 'CC2’, 'BB1', 
"BB2'. Puis entrez ’ ’ qui vous ramène au menu principal. Choi- 
sissez l'option 6 pour arrêter le programme. Puis entrez : 
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FOR I=0 TO 3 :? TABLEAUS(I) :NEXT[ENTER] 
vous devez obtenir : 


AA AA2 
BB1 BB2 
CCI CC2 
DD1 DD2 


Si tout s'est bien passé, vous pouvez relancer le programme 
avec GOTO 10000 et utiliser l'option 3 pour stocker sur cas- 
sette les données entrées. Cela facilitera les tests suivants. 


Module 4.1.10 : identification des 
données dans une simple entrée 


Avant de passer au module permettant la lecture et le traite- 
ment des données à partir du fichier, nous devons entrer ce 
module qui a pour tâche d'explorer une entrée et d'enregistrer 
la position de chaque caractère ’ ” ou, en fait, la fin de chaque 
donnée dans l'entrée. Les valeurs sont stockées dans le tableau 
PTR et ne concernent que l'entrée en cours. Pour une autre 
entrée vous devrez appeler de nouveau ce module afin qu'il se 
livre à l'analyse. 


MODULE 4.1.10 : LIGNES 19000-19080 


@1300A REM XAXKKAKAEXEREMEMEXEXEXEXEXEXEX © 
19419 REM XAnalyse de l'enregistrement* 
19924 REM KXKKKKKEMEREREEEEEAEENEEREEEX © 
1905@ PP=G 

e1224 FOR i=Q TO x-1 e 
19059 Ptré i >= INSTRCPP+1, tableau s12,"<" 





) 

819069 pP=ptré i) e 
1997Q NEXT i 

@15280 RETURN e 


Commentaires 


Ligne 19050 : Si l'on excepte le module de recherche binaire, 
où la variable SS est utilisée pour indiquer l'entrée examinée, 
le reste du programme utilise la variable S1 pour enregistrer 
la position dans TABLEAUS de l'entrée en cours. Cette ligne 
a pour effet de rechercher chaque présence du caractère ’ ’, en 
commençant à un caractère après l'endroit où le dernier a 
été trouvé. 
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Module 4.1.171 : Recherche des 
données dans le fichier 


Et nous voici au module qui donne au programme toute sa 
signification; nous allons pouvoir lire les données stockées. 
Ce module permet de lire (ou d'extraire) les données par l’une 
des quatre méthodes suivantes : 


1) Une à une, dans l'ordre à partir de la position en cours. 

2) En sautant vers l'avant ou vers l'arrière d’un nombre de 
données spécifié. 

3) En entrant une donnée-clé - la première donnée de l'entrée 
- pour une recherche rapide. 

4) En recherchant toute présence d’une combinaison de 
caractères, où qu'elle se trouve dans une entrée. 


MODULE 4.1.11 : LIGNES 17000-17430 


Old RENM XXELELEXELE 
1741n REM #Recherchek 
el? RENM X#XXELEXEXX 
17434 s1=8: CLS: PRINT TABS 145 ; "RECHERCHE" 
: PRINT TABS 14 );"zzzzzssss": PRINT 
@;>ga0 IF it=4 THEN PRINT'XX#4 FAS ENCORE 
C'ENTREE %X#4" ELSE GOTO 17A7f 
@:1795@ FOR i=1 TO £GAG:MEXT i 
1746 FETUEH 
17474 PRINT'COMMANDES CISPONIBLES :" 
17484 PRIHT:PRINHT'"'Entrer donnée Pour rec 
ehsr: he normale" 
17694 PFRIHT'"'Faire Frécéder de ’#' Four r 
e==her he initiale" 
1F1ñ4 PEH 2:PRINT'ENTER": 
17114 FEH 1:PRIHT" Pour Fremiére donnée 
du fichier" 
17128 teb="": PRINT: INFUT"'Entrer commande 
6 de recherche: "te: teÿ=LIPPERS tes) 
17134 IF LEFT tes, 1i="*4" THEN te$g=MIC$ 
ote$:22: GOSUE 1394G:te$="":slsss 
17144 PS="C":UHILE F$="c" 
e!15t IF te$g="" THEN GOTO 1721@ 
17168 FF=<Q: FOR i=si TO it-1 
e!:17 PPE=IHSTRS Lableaug$é i 1, teh) 
17186 IF FPS THEH ffalislizi:isit-i 
17194 NEXT i 
@;7200@ IF ff-A THEN RETURN 
172184 pan 





e 
e 
e 
[ 
e 
L. 
e 
e 
e 
e 
e 
e 
e 
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@1722a UHILE PS="" PND it>@ e 
17230 IF si>it-1 THEN si=it-1 

e17248 IF <1<Q THEN s1=0 e 
1725G GOSUE 19402 
17268 CLS:PRINT'ENTREE "isl+li":": PRINT: 

e;P-08 e 


17274 FOR izQ TO x-1 
17284 PRINT itembcid:":";MIDS( tableaugs e 
12PP+1.PbrCi-PP-10 


67298 pr=rtréi):MEXT i e 
17308 PRINT:PRINT" COMMANDEZ C'ISFONIBLES 
: “ e 
17314 PRINT:PEN Z:PRINT"ENTER"; :PEN 1:PR 
@eINT" Pour donnée suivante" @ 
17324 PRINT"’A’ Pour modifier" 

17334 PRIHT"‘C* Pour continuer la recher 
6e" e 
17344 FRINT"/#" suivi d’un nombre Four d 
Séplacer le Pointeur" e 
17354 PRINT"?$* Pour quitter la fonction 

LU & 
17364 PRINT: IHPUT'"Yotre choix: ",P$ 

617276 PS=UPFERSECPSD: IF P$="" OR PSC" T @ 
HEHN s1=s1+1 

e17382 IF PS$="C" THEN GOTO 17428 e 
17398 IF P$S="A" THEN GOSUB 1S@94:F$="" 
1744 IF LEFT#C(PS,12="#" THEN 51=s1+YAL 

OHIDSPS, 203: pS="" e 
1741& WEHD 

@1742@ WEND e 
17434 RETURN 

e e 





Commentaires 


Ligne 17030 : Si, comme nous l'avons dit dans les commen- 
taires sur le module précédent, est le pointeur sur l'entrée en 
cours ; il repart à 0 à chaque début de recherche. 


Lignes 17040-17060 : Un message d'erreur apparaît si aucune 
donnée n'a encore été placée dans le fichier. 


Lignes 17070-17120 : C'est le menu initial du module de 
recherche. Pour chaque recherche, vous ne le verrez qu'une fois 
au début. Ce menu vous permet de spécifier le type de recher- 
che; si vous voulez changer de type de recherche, vous devez 
quitter la recherche en cours et repasser par ce menu. Le terme 
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"RECHERCHE NORMALE’ indique la recherche d'une combi- 
naison donnée de caractères. La première entrée obtenue sera 
la première du fichier contenant ces caractères, dans n'importe 
quelle position. "RECHERCHE INITIALE' indique la recherche 
d'une entrée qui commence avec la combinaison de caractères 
spécifiée par l'utilisateur. Ainsi, "SMI' trouverait une entrée 
commençant avec les lettres SMI, pas forcément la première. 
Si la chaîne spécifiée ne se trouve au début d'aucune entrée, 
l'entrée obtenue est celle qui se trouve à l'endroit où elle serait 
insérée s’il s'agissait d’une nouvelle entrée. 


Vous pouvez étendre la recherche normale ou initiale sur plus 
d'une donnée d'une entrée, en plaçant un caractère ’ ” dans 
la chaîne à rechercher. Si vous utilisez cette technique sur un 
fichier dont la première donnée de chaque entrée est un nom et 
la deuxième un prénom, une recherche initiale de DURAND' 
"A" donnera tout "DURAND" dont l'initiale est ’A', mais pas 
forcément le premier. 


Dans une recherche normale, si la chaîne spécifiée n'est pas 
trouvée dans l'une des entrées du fichier, le programme revient 
au menu principal. 


Ligne 17130 : Cette ligne fait tout le travail nécessaire à une 
‘recherche initiale’, en supprimant l’astérisque de gauche et en 
appelant simplement le module de recherche binaire pour qu'il 
trouve la position correcte. 


Lignes 17140-17420 : Cette boucle principale répètera une 
recherche normale si vous le demandez à partir d'un menu 
ultérieur. À noter que la routine de recherche initiale ne figure 
pas dans cette boucle car il est inutile de répéter une recher- 
che initiale puisque la même entrée sera toujours obtenue. 


Lignes 17150-17210 : À ce stade du déroulement du module, 
toute entrée doit être une chaîne faisant l’objet d'une recher- 
che normale. Cela est fait simplement en analysant l'entrée 
avec INSTR. Si une donnée est trouvée, la variable FF reçoit la 
valeur 1. La position est enregistrée dans S1 puis la variable de 
la boucle, I, reçoit sa plus haute valeur afin que la boucle 
se termine. 


Lignes 17220-17410 : Cette boucle continue tant que P$, 
l'entrée du menu de recherche suivant, représente une ‘chaîne 
nulle’. La valeur de IT doit être incluse dans la condition de 
la boucle, parce que nous voulons pouvoir supprimer des don- 
nées dans cette boucle. Si toutes les données sont suppri- 
mées, nous devrons sortir de la boucle, sous peine de créer 
une erreur. 
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Lignes 17230-17240 : Dans la boucle, vous pouvez vous dépla- 
cer dans le fichier à l’aide d’un nombre. Ces lignes contrôlent 
lors des passages suivants dans la boucle, que le pointeur n'a 
pas été déplacé au-delà des limites du nombre actuel d'entrées. 


Lignes 17250-17290 : Après avoir appelé le module précédent, 
ces lignes utilisent l'information sur la position des caractères 
de séparation pour afficher les données constituant l'entrée en 
cours, avec le libellé de la donnée. A chaque passage dans la 
boucle FOR, les caractères situés entre la valeur de la variable 
PP et une valeur contenue dans le tableau PTR sont affichés. 
Lorsque chaque lot de caractères a été affiché, PP reçoit la 
valeur en cours dans le tableau PTR et la variable de la bou- 
cle, I, prend la valeur suivante dans PTR. 


Lignes 17300-17360 : Ce menu apparaît lorsqu'une entrée est 
affichée. Vous avez plusieurs possibilités : passer à la don- 
née suivante, appeler la fonction ‘M’ (modifier) (pas encore 
entrée), continuer la recherche de la chaîne précédemment 
spécifiée, sauter dans le fichier d'un nombre d'entrées spéci- 
fié, ou revenir au menu du programme principal. 


Lignes 17370-17380 : Ces deux lignes sont associées aux bou- 
cles commençant aux lignes 17140 et 17220. Si l'entrée est 
une ‘chaîne nulle’ (c’est-à-dire si vous appuyez sur ENTER), la 
boucle de la ligne 17220 est répétée et affiche l'entrée suivante 
indiquée par S1. Si vous entrez ’C’, la boucle de la ligne 17140 
exécute à nouveau la recherche en commençant à l'entrée sui- 
vante. 


Ligne 17390 : La fonction M (modifier) qui n’a pas encore 
été entrée. 


Ligne 17400 : L'entrée d’un nombre précédé du signe '#’ vous 
permet de vous déplacer vers l'avant ou vers l'arrière dans le 
fichier. Le fait de donner une chaîne nulle à P$ exécute sim- 
plement la boucle de la ligne 17220 pour afficher l'entrée que 
vous venez d'atteindre. 


Test 


Si vous avez sauvegardé les suites de quatre entrées créées 
aux tests précédents, exécutez le programme et rechargez les 
entrées. Spécifiez l'option 4 sur le menu principal puis, lors- 
que le menu de recherche apparaît, faites défiler les entrées en 
appuyant sur ENTER. Chaque entrée doit s'afficher sur deux 
lignes, avec le nom de donnée approprié, par exemple : 


UN :AA1 
DEUX :AA2 
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À la quatrième entrée, vous constaterez que vous ne pouvez 
plus continuer en appuyant sur ENTER. Entrez alors ’#-1’ qui 
doit vous ramener à l'entrée 3. 


Continuez à reculer; vous constaterez que vous ne pouvez pas 
non plus aller au-delà du début du fichier. 


Entrez ’ ’ pour revenir au menu principal et spécifiez l'option 4 
à nouveau. Cette fois-ci répondez par ‘CC’ au menu de recher- 
che initial. L'entrée 3 doit s'afficher, la seule qui contienne 
les caractères ‘CC’. Vous êtes au deuxième menu de recherche, 
donc entrez ’C' pour continuer la recherche. Vous devez reve- 
nir au menu principal. 


Choisissez à nouveau l'option 4 et entrez ’2’ comme cible de 
recherche. L'entrée 1 doit apparaître puisqu'elle contient le 
caractère ’2'. Entrez 'C’ pour continuer la recherche et 
l'entrée 2 doit s'afficher; elle contient aussi le caractère ’2’. 
Continuez à entrer ’C’ jusqu'à ce que les quatre entrées aient 
été affichées et que la recherche échoue, vous ramenant au 
menu principal. 


Pour finir, choisissez l'option 4 du menu principal et entrez "B’ 
comme cible de recherche. L'entrée 2 doit s'afficher, la seule 
qui commence par ‘B'. Entrez ’ ’ pour revenir au menu princi- 
pal et mettez fin au programme. 


Vous avez testé toutes les fonctions de recherche. 


Module 4.1.12 : Suppression 
d'entrées 


Les deux modules suivants qui permettent de modifier ou de 
supprimer les entrées, parachèvent le programme. Le module 
SUPPRESSION est ajouté en premier, puisqu'il est utilisé à cha- 
que modification d'une entrée. 


MODULE 4.1.12 : LIGNES 16000-16040 


@16098 REM XKÉHÉEREELEREEÉEEEKELEEPELE e 
169014 REM *XSuPPression d’une donnée* 
e 15928 REM XÉXXEEXERKMEEAEEXEEEEEKEREX 





16939 FOR j=s1i TO it-1:tableau$ j =table 
e:!* J+13:MEXT j e 
1644@ it=it-1:RETLRN 


Commentaires 
Lignes 16030-16040 : La suppression consiste simplement à 
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commencer à l'entrée au-dessus de celle qui doit être suppri- 
mée et à la copier une position plus bas. Lorsque chaque entrée 
a été déplacée, le comptage des données est réduit de 1. 


Test 


Exécutez le programme et lisez les quatre données sur cassette. 
Spécifiez l'option 4 pour arrêter le programme. Puis entrez : 


S1=0[ENTER] 
GOTO 16000 


Le programme doit s'arrêter avec une erreur ‘Unexpected 
RETURN" (RETURN inattendu). Entrez : 


GOTO 11000[ENTER] 


puis appelez l'option de recherche. Vous constaterez que 
l'entrée AA1 AA?2 a disparu du fichier. 


Module 4.1.13 : Modification des 
entrées 


Pour que le programme soit utile, il est indispensable que nous 
puissions modifier les données existantes. C'est le rôle de 
ce module. 


MODULE 4.1.13 : LIGNES 15000-15190 


O1SAAn RENM XHXXKEXELELEXELELEXELELAEEEE 
158014 REM XModification d’une entrée* 
el:229 REM HEKAKKKEEX EN ENERENELAAKAAAX 
15439 te$="":pr=f 
e::240 FOR i=9 TO x-1 
15950 CLS:PRINT'"'Entrée ";s1+1;5":" 
15969 PRINT:PRINT item$é ii":";MIDS tabl 
Osausts1d,PP+1.Ptreid-PP-1 à 
15474 PRINT :PRINT'COMMANCES CISFOMNIELES : 
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15Q64 FRIHT:FEN Z:PRINT"'ENTER": 
@1:95% FEN 1:PRINT" laisse les données in @ 
changées" 
15199 PRINT'Entrer nouvelle donnée Pour à 
remplacer celle affichée" 
19119 PRINT''40" SuPprime toute l'entrée e 
15129 PRINT"’S' laisse l'entrée inchangé 
2" 


12134 FRINT:INPUT'QOue voulez-vous: ",4%$ 
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@15144 1$=-UPFERS9$):IF 4$="5D" THEN GOSI @ 
BE 1640G:RETLRN 
15154 IF q$="S" THEN RETURN e 
15164 IF 9$<>"" THEN 9$=9$+"<S" 
el°1"% IF 49%="" THEH 9$=MIDS tableau$é s 1) e 
,PF+1,Ptrid-pp) 
15188 pp=ptreid:tet=tes+9$:NEXT i:GOSUB 
O1ca0G:GOSUE 13000 
15198 s<1=ss:GOSUB 14080: RETURN 





Commentaires 


Lignes 15040-15180 : Cette boucle paraît semblable à celle qui 
affiche les entrées au module 4.1.8. Toutefois, elle n'affiche 
qu'une donnée à la fois. 


Ligne 15140 : La frappe de ’ D’ lorsqu'une donnée est affichée, 
supprime toute l'entrée qui contient cette donnée. A noter qu'il 
n'est pas possible de supprimer une donnée individuelle puis- 
que le nombre de données par entrée est fixe. 


Ligne 15150 : La frappe de ’ ’ en réponse à toute donnée 
redonne la main au module de recherche. Les modifications 
éventuelles apportées aux données précédentes de l'entrée sont 
ignorées et l'entrée reste inchangée. 


Ligne 15160 : Toute autre entrée que ’ D’ ou ’ ’, est considérée 
comme un remplacement de la donnée affichée. Le séparateur 
! ! est ajouté à la fin de la donnée, comme dans le module de 
nouvelles données. 


Ligne 15170 : Si vous appuyez sur ENTER sans autre entrée, 
la donnée affichée est copiée sans modification. Pour ne modi- 
fier qu'une donnée, appuyez simplement sur ENTER pour tou- 
tes les autres. Notez la différence entre cette expression chaîne 
et celle qui a permis d'afficher la donnée à la ligne 15060. Le 
"-1" à la fin est abandonné afin que le caractère de séparation 
"’ ne soit pas supprimé. 


Lignes 15180-15190 : L'entrée modifiée est reconstituée dans 
TE$. Lorsqu'elle est terminée, l'entrée initiale est supprimée 
du fichier. La raison en est que les modifications apportées 
ont peut-être modifié la position correcte de l'entrée dans le 
fichier. Après sa suppression, l'entrée est envoyée au module 
de recherche binaire puis réinsérée, sa position dans le fichier 
ayant été copiée dans la variable S1; ainsi, le module de 
recherche sait quelle donnée afficher si la position a été modi- 
fiée. 
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Test 


Exécutez le programme et lisez les quatre données sur cassette. 
Choisissez l'option de recherche et appuyez sur ENTER pour 
afficher l'entrée 1. Puis entrez ’M’ en réponse au deuxième 
menu de recherche. La première donnée, ‘AAl', doit s'afficher 
avec le menu de modification (AMEND). Entrez 'AAAl' et, 
lorsque la deuxième donnée est affichée, appuyez sur ENTER. 
Vous devez vous retrouver au module de recherche et l'entrée 
doit être affichée sous la forme suivante : 


UN :AAAI1 
DEUX :AA2 


Essayez d'apporter d'autres modifications et de supprimer 
des entrées. 


PROGRAMME 4.2 : NNOMBRE 


Fonction du programme 


Le classement et les fichiers ne concernent pas que des mots. 
Les micro- ordinateurs sont aussi parfaitement capables de 
stocker et de traiter des nombres. Ce programme ’NNombre’ 
(contraction de ‘Nom et Nombre’) vous permet de stocker des 
noms d'articles, leur unité habituelle de mesure et une quan- 
tité associée. Avant de déclarer que vous ne voyez pas l'inté- 
rêt d'un tel programme, mettez-vous à la place d'un petit com- 
merçant ou même d'une cuisinière. 


Le commerçant a une masse d'articles qui constituent son 
stock. Tous les articles du stock ont des noms, et se présentent 
sous des unités différentes (boîte, bouteille, sac, etc.) et tous 
ont une donnée très importante qui leur est associée : le prix. 
Donc, pour qu’un micro-ordinateur puisse gérer le stock ou éta- 
blir une facture, il doit connaître ces trois données pour cha- 
que article. À la maison, les aliments que nous consommons 
ont tous un nom, leurs unités sont également différentes (cuil- 
lerée, grammes, décilitre, etc.) et, si nous nous préoccupons de 
notre ligne, il faut tenir compte d'une autre valeur : les ’calo- 
ries”. 

Il ne s'agit là que d'exemples et vous pouvez en imaginer bien 
d’autres où il est important d'enregistrer des noms, des unités 
et une quantité associée à toute une variété d'articles. 
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Nnombre vous permet de créer un ‘dictionnaire’ d'articles - jus- 
qu'à 200 - avec leurs unités de mesure et les valeurs associées 
à ces unités. À partir de ce dictionnaire, vous pourrez cons- 
truire des listes d'articles que le programme affichera et tota- 
lisera. Nnombre est facile d'emploi, qu'il s'agisse d'ajouter les 
calories des recettes d’un jour ou de donner le prix total d'un 
ensemble de marchandises. 


Module 4.2.1 : Initialisation 


Il s’agit d’un module standard. Vous devez simplement spéci- 
fier le type d'articles que le programme va traiter. Ce sera un 
nom du type ‘’Denrée comestible’ ou ’Article de stock’. 


MODULE 4.2.1 : LIGNES 10000-10090 


@ 19900 REM XXKEKEXAXEAKAXENE e 

14414 REM *XInitialisation* 

e 12929 REM XKKKKAKLAREAEEAX æ 
14929 MODE 1 

a 1904% DIM tabhleau$( 1949, 12;tableauc 1009) 
ste$c 148.1); tec1nn5 : cusA : it=f 
14454 PEN 2:PRINT TAB 172; "HNOMERE" : PRIN 

OT TAB 17 3; "==" e 
1464 LIHCOW 1,49,4,25 

614974 PEN i e 
14484 INPUT "Lecture sur cassette Co/n)" 

e:1% e 

1409@ IF LOUNERS 3$)="0" THEN GOSUR 22444 

se PRINT:INPUT "Hom général des artic @ 
es", nn$ 
















& 


NNOMBRE 
SSSESSz= 

® ARTICLE : RONDELLES 

Unités:2 BOITES 


6 Guantité:8.a7 


ORARTICLE :BRIDES 
Unités:11 BOITES 
@enuantité:292.49 
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@ FRTICLE : MANCHONS 
Unités:6 SACS 
Quantité : 79.5 


ARTICLE :RIVETS 
Oinités:35 PAQUETS 
Quantité :178.85 


e 


aTïctal: 549.91 


aFraPPer une touche Pour revenir au menu = 





Figure 4.2 : Nnombre en mode liste en cours. 


Commentaires 


Ligne 10040 : Le tableau TABLEAUS est utilisé pour enregis- 
trer le nom d'article et le nom d'unité de chacun des articles 
du dictionnaire. La quantité associée pour chaque unité est 
stockée dans l'élément équivalent du tableau TABLEAU. 


TE$ et TE jouent le même rôle que TABLEAUS et TABLEAU, 
mais pour la ‘liste en cours’ extraite du dictionnaire. La 
variable CU enregistre le nombre d'articles dans la ‘liste en 
cours’ : la liste dérivée du dictionnaire principal. IT, comme 
dans la plupart des programmes de ce livre, enregistre le 
nombre d'articles dans le fichier principal, dans ce cas le dic- 
tionnaire. 


Module 4.2.2 : Menu 


Il s'agit d'un module de menu standard. Seule différence avec 
les programmes précédents : la façon dont la ligne 11160 
empêche d'accéder à certaines fonctions du programme avant 
que des données n'aient été entrées; cette fonction ne peut pas 
être utilisée avant l'entrée du module suivant. 


MODULE 4.2.2 : LIGNES 11000-11210 





@iinan FEM £HEFELEXEREEENEX & 
11N14 REM XMenu FrinciPalx 
11420 REM KEEEELEREEEREREEE æ 


11934 WHILE z<>8 
mi1848 CLS > 
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- 11858 PFEINT'COMMANDES CISFONIGLES :" ” 
11868 FRIHT 

@ 11476 FRIHT "1: Afficher la liste en cou @ 
re" 

& 11980 PRINT "Zi Entrer dans la liste en @ 
cours" ! 
11999 PRINT "33 Commencer une nouvelle 1@ 
iste" e 

e 11104 PRINT "di Supprimer la liste en c'e 


urs [D 

11118 PRINT "55 Ajouter au dictionnaire" 

11124 FRINT "65 Examiner les articles du 
dictionnaire" 

@11135% FRINT "72 Sauvegarder les articles @ 
sur cassette" 

@1i14% PRINT "55 frreter" e 
11159 FRIHT: INPUT "#otre choix: "z 

eliiiss IF czei OR zz£ OR z=4 Ok z=6é OR z= 
F) ANG it=a THEH x$= Rs té ENCOR 


11179 ON z COSUE 12000, 12000, TAUPE zaaaa @ 
15400, 18000, 210@û 

@ 1184 MENC e 
11198 CLS 

@112%û LOCATE 11:11:PRINT "PROGRAMME TEFM @ 
INE" 

e11219 END e 





Module 4.2.3 : Messages d'erreur 


Ce petit module peut épargner de la mémoire dans le cas d'un 
programme qui génère un certain nombre de inessages d'erreur 
différents. Ce module ne fait rien d'autre qu'afficher une 
chaîne nommée X$, d'émettre un signal sonore et de revenir à 
sa place. Vous pouvez voir à la ligne 11160 que, pour appeler le 
module, X$ est défini puis une commande GOSUB est émise. 


MODULE 4.2.3 : LIGNES 23000-23070 





O 2590n RENM XXKFAXEX e 
23019 REM *Erreurx 
23020 REM *XXXXXHXX e 


23939 PRINT:PRINT x$ 
23644 SOUND 1,1094.166 
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© 2050 FOR i=1 TO 1590 
23060 
8 2074 


NEXT ji 
RETURH 





Test 


Exécutez le programme et répondez aux messages de façon 
appropriée. Lorsque le menu apparaît, spécifiez l'option 1 qui 
doit afficher le message d'erreur indiquant qu'il n'y a pas 
encore de données en mémoire. 


Modules 4.2.4 et 4.2.5 : Fichiers 


de données 
Deux modules standard. 


MODULES 4.2.4 et 4.2.5 : LIGNES 21000-22210 


e z100û 
21810 
e 21828 
Fe 
2 
O RINT 
2105 
@ :iacu 
21078 
e 1080 
21490 
e21190 
21114 
21128 
021130 
21149 
651150 
21164 
0:1170 
21189 
e:1194 
2120 
21214 
22000 
22014 
0 2920 


REM XXKÆKAXAEAXEEXAEAAALELKEX 
REM *XSauvegsrde sur cassettex 
REM HHKXKEMAEEXEEEEEELLEREEEX 
CLS 

PRINT 


INPUT "Hom de fichier:".fichiers 
OFENOUT fichiers 

PRINT #3: nn$ 

PRINT #9,:cu 

FRINT #9,it 

FOR i=g TO cu-1 

PRINT #9, teg$c if 

FRINT #9, te$c i,102 

FRINT #9:teci) 

NEXT ji 

FOR i=@ TO it-1 

PRINT #9, tableau$c i,42 
PRINT #2, tableaug ji, 10 
PRINT #9, tableauc ii 

MEXT i 

CLOSEQUT 

RETURN 

FREM ÆXXXKEKEKEXEREMELERAEKEÉE 
REM XLecture sur cassettex 
REM XEXXELXALEELEELEXEEEAX 


"Sauvegarder les données:":P 


e 
e 
6 
e 
e 
e 
e 
6 
L. 
e 
8 
L. 
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CLS 

PRINT "Charger les données:":PRINT 
INPUT "Nom de fichier:",fichiers 
QPENIN fichiers 
INPUT #3, nn$ 

INPUT #9:cu 

INPUT #9,it 

FOR i=@ TO cu-1 
INPUT #9, te$( 1,2) 
INPUT #9, te$c i.1) 
INPUT #9,teci) 
MEXT ji 

FOR i=g TO it-1 
INPUT #9, tableau 
INPUT #9, tahleau$c 
INPUT #49: tableauc i 
NEXT i 

CLOSEIN 

RETURH 


6 


a) 
1) 


i, 
i: 
) 


® 9 5 2 D » © 9 


Module 4.2.6 : Recherche binaire 


Pour un commentaire complet de ce module, reportez-vous au 
module équivalent d'Unifile. Notons simplement que le clas- 
sement est fait sur la base du nom d'article dans la colonne 0 


de TABLEAUS$. 









eicaaa 

16810 
a 1642 
16854 
15a44û 
16454 
16468 


e 


16978 
@ 16950 
16994 
16194 
16114 
A 





MODULE 4.2.6 : LIGNES 16000-16110 


@ sbieaut(ss At183) 





RE HÉKEERENERAEEXEXEXE 

REM *Recherche Binairexk 

RENM KÉHKAKEREREREREREREE 

IF it=Q THEN :5=û0:RETURN 
Fo=INTCLOG it i/LOGCZ)):ss=2 bol 
FOR izpo TO @ STEP -1 


se=ss+2"i#xC Ctableaut(ss, M22t183-Ct e 


e 








IF ses<4 THEN sseûÿ 

IF ssrit-1 THEN sszit-i 
NEXT i 

IF tahleau$sess,@3<t1$ THEN ss=ss+i @ 
RETURH 

æ 
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Module 4.2.7 : Insertion d'articles 
dans le dictionnaire principal 


Le principe de ce module est identique à son homologue d'Uni- 
file. Il est ici un peu plus long car il doit insérer deux 
chaînes et un nombre dans les deux tableaux au lieu d'une 
seule chaîne. 


MODULE 4.2.7 : LIGNES 17000-17110 
Qi700n REM KXEXKERERERENENAEXANE 





17914 
e 17220 
17030 
17948 
17959 
1786à 
07079 
17989 
17854 
17104 
e17119 


e 





REM XInsertion d'articlex 
REM XKXXXKAEXEEXEEARANERALE 
FOR isit TO ss+1 STEF -1 
tableaus$c i, H)ztableausc i-1, 
tableau i,1)=tableausc i-1, 
tableauc idstableauc i-19 
NEXT ji 

tableau$g(ss.giztis$ 
tableau$(ss,1ii=t2$ 
tableaus ss 2=nn 

RETURN 


a 
12 


Module 4.2.8 : Entrée d'articles 
pour le dictionnaire 


Ce module est bien moins compliqué que son homologue 
d'Unifile ; il accepte trois entrées : (a) le nom de l’article, (b) le 
nom des unités de mesure de l’article et (c) la quantité asso- 
ciée à ces unités. 


MODULE 4.2.8 : LIGNES 15000-15170 


FENM KEKEEKEEELREREREREELELEEELEEE 
1 FEM #Extention du Dictionnairex 
A FEM ÆÆXXEEEXEREELEELREELELEEAKELEE 
Sà WHHILE 1 

CLS 

PRINT "Houveaux articles Four dict 











Oisueg IF it>1004 THEN x$=" HXELEEXEX © 
PLUS DE FLACE #XHHHktké" : COSUE 22400: RET 
@LFtH 
15878 q$="":UMHILE LONERSCa$2€>"o" 
015988 PRINT nn$: : INPUT " énom où 


Ses 
Tr 


FOu @ 
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Fr Quitter" ti 
e 15298 IF t15="5" THEN RETURN 
15180 PRINT "Unités"; : INPUT ":",+28 
15114 FRIHT "Ouantité Pour ":LOMERS(t2S 
O ;:IHPUT “ion 
(S12A PRINT: INPUT "Sont-ils corrects To 


8 :1:":9$: PRINT 
15134 WEHDC 

@:isi4n GOSLE 16409 
15154 GOSUB 179@4 
SEA it=it+] 
15178 LHEHC 


CR 





Exécutez le programme, spécifiez que vous ne lisez pas à partir 
d'une cassette et donnez le nom ARTICLE en réponse au mes- 
sage demandant un nom général. Sur le menu principal, choi- 
sissez l'option 5 ‘Ajouter au dictionnaire’. Lorsque l'écran ’nou- 
veaux articles’ apparaît, entrez les trois lignes suivantes : 


OBJET1/BOITE/10 

OBJET2/BOUTEILLE/20 

OBJET3/SAC/40 

Ces articles n'ont pas de signification particulière et ne servent 
qu'au test. Après avoir entré les articles, revenez au menu 
principal en entrant ’ ’. Puis appelez le module du fichier de 
données (option 7) pour stocker l'information. Arrêtez le pro- 
gramme avec l'option 8 et entrez : 


FOR I=0 TO 
2 :?TABLEAUS(I,0),TABLEAUS(I,1), TABLEAU(I) :NEXT 
[ENTER] 


Vous devez obtenir : 


OBJET 1 BOITE 10 
OBJET 2 BOUTEILLE 20 
OBJET 3 SAC 40 


A présent, exécutez le programme en spécifiant que vous vou- 
lez lire sur cassette. Tapez le nom donné lors du stockage. 
Après la lecture de la cassette, vous devez pouvoir effectuer 
le même test sur le contenu des tableaux, avec le même résul- 
tat. 


Test 


Vous pouvez enfin effectuer un test réel sur ce qui a été 
entré jusque-là. 
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Module 4.2.9 : La routine de 
recherche 


Comme avec Unifile, ce module vous permet d'explorer le 
fichier des articles du dictionnaire, de rechercher certains arti- 
cles ou d'en supprimer du fichier. Ce module est plus simple 
que celui d'Unifile, car il est conçu pour rechercher des arti- 
cles entiers, et non des combinaisons de caractères stockés 
n'importe où dans un article. En outre, la structure d'une 
entrée complète de Nnombre est bien plus simple que la struc- 
ture d’une donnée du tableau principal d'Unifile. 


MODULE 4.2.9 : LIGNES 18000-18250 


ein REM ÆXÉKEEEEEEEE 
18419 FEM XkRecherche*k 
18424 REM KEKELEEEEEE 
18934 ss5=û 
e 18@4g t1$="":MHILE it: 
18454 CLS: PRINT "Recherche: ":PFRINHT 
15964 PRINT "Huméro de l'ar set 1" « ss+i 
18974 FRINT an$:":";stableaug ss, 4 e 
15984 PRINT “nités:"itableaus( 8, h 3 
012994 FRINT "Ouantité Pour ";LOMHERS: tabl @ 





eau$g ss, 1)ii"it;tableautss: 
12146 FPRINT:FEIHT "Commandes Disponibles 
: M: PRINT 


TE PRINT "Entrer l'article à recherche 


1810 PEH Z:PRINT "ENTER": :PEN 1:FRINT " 
Four. l‘ article suivant" e 
1513€ PRINT "‘#° suivi d'un nombre Four 

@dérlacer le Fointeur" 

12148 FEINT "“‘s’ pour suPPrimer l'articl 

ec" e 
18154 PRINT "‘$' Pour quitter" 

e 15154 PRINT: INPUT "Que voulez-vous"itié + 
LT IF tig="" THEN ti$g="#1" 

el:15t IF ti$="$" THEN RETUEH e 
18194 IF LOMNERS tigi="d" THEN GOSUE 1996 


CMNICSCEIS, 2: t1$="" 


CR 214 IF tig<:"" THEN GOSUE 1644 e 
18224 IF seïrit-1 THEN ss=it-1 
@15234 IF ss<û THEN ss=û & 


18244 WENC 
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# 18254 RETURN e 
18218 IF t1$4>"" THEN GOSUB 16449 

m18220 IF ss>it-1 THEN ss=it-1 

19239 IF s=ss<ÿ THEN ss=9 
1824@ MEND 

912254 RETURN e 





Commentaires 

Ligne 18170 : Plutôt que de prévoir l’entrée de RETURN - c'est- 
à-dire une chaîne vide - la variable T1$ reçoit d’abord la valeur 
#1. Si vous appuyez simplement sur RETURN, le contenu de 
T1$ reste inchangé et l'article suivant du fichier s'affiche. 


Test 

Exécutez le programme, lisez les trois articles sur cassette, puis 
choisissez l'option 6, ‘Examiner les données du dictionnaire’ 
du menu principal. Vous pouvez consulter les articles, vers 
l'avant ou vers l'arrière, en utilisant un nombre précédé d'un 
"#" comme dans Unifile. Vous pouvez aussi obtenir un article 
en entrant son nom, mais pas le nom de l'unité. 


Module 4.2.10 : Suppression d’un 
article 
Equivalent direct du module de suppression d’Unifile. 


MODULE 4.2.10 : LIGNES 19000-19090 


619400 REM XXKXKAXEKANAE 
19414 REM *SuPPression* 
@ 19020 REM #XXXAEXKELANX 
1943Q FÜR ji=ss TO it-2 
e 19949 tableau“ i,4d=tabhleaugs i+1,65 





19054 tableaud ji, 1 =tableaugs i+1,12 
19069 tableaus i >=tabhleaus i+i2 
@iS@74 NEXT i 
1948Q itzit-1 
815999 RETURN 


Test 

Exécutez le programme, lisez les données sur cassette, choisis- 
sez l'option 6 du menu principal, et tapez '’S' pour l'une 
des entrées. Vous constaterez que l'entrée est supprimée 
du fichier. 
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Module 4.2.11 : Copie d'articles 
dans la liste en cours 


Nnombre n’a pas seulement pour but de gérer un dictionnaire 
d'articles et des quantités associées, mais aussi d'utiliser ce 
dictionnaire comme base de construction de listes temporaires. 


Les modules suivants sont donc conçus pour vous permettre 
d'ajouter des articles à la liste ‘en cours’, d'afficher cette liste, 
d'en supprimer certains articles ou de supprimer toute la liste 
en une seule opération. Ce module permet de copier les arti- 
cles du dictionnaire principal dans la liste ‘en cours’. 


MODULE 4.2.11 : LIGNES 13000-13210 


SOA REM KKKEKEKEEEELREXELREXREREEX 
3A14 REM #Extension de la listex 
13915 REM *% en cours * 
51029 REM XKEKKEMEMEEEKMKAKEREREREX 
e 13034 VHILE 1 
1344A CLS 
1:45 PRINT "Aiouter à la liste en cours 
OU: PRINT 





13964 IF cu:194 THEH x$=" X#X4X LISTE 
@ EN COURS PLEINE *X**#*":GOSUB 2248G:RETLU ® 
RH 


O15274 FRINT nn$:: INPUT " C'$’ pour quitt @ 
erii"iti$ 

el Sa IF t1$="S" THEN FRETURH 
12494 connuz@:GOSUE 16G0@4:1IF tabhleaug ss 

e: G=ti$ THEN conmuzi e 
13144 IF connu=@ THEN x$="##XxXx "+UPPERSE 
nn$+" INCONNU, VERIFIER ####4":GOSUE 250 

@ Ga: FETLIRN & 
13114 PRINT:PRINT "nités:";itableaug ss, 

ei: 
13124 INPUT "fmantité:".4 

615154 PRINT: INPUT "Sont-ils corrects Co @ 
NN": 4$ 

e 13144 WHILE LONERSS 9$ =" 0" e 
15150 te$c cu, 4ï=tabhleaug ss, 42 
13164 te$c ou, 1 )=MIDSÉSTRSC A), 214" +tahl 


aù 13 


[x] 
f 


Oeause ss.12 e 
13174 teCcu)=9%tableaut ss) 
@1:184 cu=cu+i e 


13198 q$="" 
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é 15264 MWEMD e 
3214 WEHDC 





Commentaires 


Lignes 13090-13100 : Ces lignes vérifient si l’article entré par 
l'utilisateur pour aller dans la liste en cours, est présent 
dans le dictionnaire principal. Pour cela, le module de recher- 
che binaire est appelé pour obtenir la position à laquelle serait 
inséré l’article dans le dictionnaire. Puis le contenu réel du dic- 
tionnaire est comparé à l'entrée. Si l'entrée de l'utilisateur est 
dans le dictionnaire, les deux articles sont identiques; sinon 
un message d'erreur apparaît et le module se termine. 


Ligne 13110 : Après avoir trouvé l'article dans le diction- 
naire, le module affiche les unités de mesure normales et vous 
demande combien de ces unités il faut inclure. 


Lignes 13120-13170 : Entrez les valeurs réelles. Puis vous 
devez confirmer l'exactitude de l'entrée avant qu'elle ne 
s'ajoute à la liste en cours, contenue dans les variables TES et 
TE. Notez que la quantité stockée en TE n'est pas la quantité 
par unité provenant du dictionnaire, mais la quantité totale du 
nombre d'unités que vous avez spécifiées. 


Test 


Exécutez le programme et lisez les données sur cassette. Choi- 
sissez l'option 2 du menu principal. Entrez les articles et les 
nombres d'unités suivants : 


OBJETI1,1 

OBJET2,2 

OBJET3,3 

Essayez ensuite de faire accepter au module, 'OBJET4’, qui 
n'est pas présent dans le dictionnaire. Un message d’erreur 
va vous demander de vérifier le nom de l’article. Avant toute 
chose, choisissez l'option 7 afin de stocker la liste en cours 
récemment créée ainsi que le dictionnaire principal. Pour finir, 
choisissez l'option 8 pour arrêter le programme. 

Puis entrez la ligne suivante en mode direct : 

FOR I1=0 TO 2 : ?TES$(I,0),TEO$(I,1),TE(I) :NEXT[ENTER] 
Vous devez obtenir : 


OBJET1 1 BOITE 10 
OBJET2 2 BOUTEILLE 40 
OBJET3 3 SAC 120 
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Module 4.2.12 : Affichage de la 
liste en cours | 


Ce module a pour seul rôle d'afficher une à une les entrées 
qui constituent la liste en cours. Après chaque entrée, vous 
êtes invité à frapper une touche pour afficher l'entrée sui- 
vante. Cela, parce que la liste est normalement plus longue que 
l'écran et qu'elle ne doit pas défiler trop rapidement. A la fin 
de la liste, le total des quantités correspondant au contenu de 
la liste en cours est fourni. 


MODULE 4.2.12 : LIGNES 12000-12160 


@ 12408 RENM HXHEKERAEEXEENEEELEREXE 
12914 KENM *Affichañe de 1a ee 
@i24ls REM # en cours 
{enz4 RENM a re nn 
e 2256 IF cu=G THEN RETURN 
12648 CLS :ct=û 
12954 FOR i=Q TO cu-1 
12464 PRINT nn$:i":"iteg(i.@o 
12474 PRINT "Unités:"iteg il: 
FRINT "Guantité:";itesi 
PRINT Me 
12144 WHILE IHKE'Y$="":UEHC 
12119 ctzct+tes ii: 
12124 MEXT :i 
ei: PRINT:FPRINT "Tatal:"ict 
12144 PRINT:PRINT "FraPPer une touche Fo 





ur revenir au menu“ 

@:: "154 MHILE IHKEYS$S="":WEHC 
12164 RETUREH 

& 


Module 4.2.13 : Suppression 
d'articles de la liste en cours 


Il s’agit d’une version très simplifiée du module de recherche 
utilisé pour le dictionnaire principal. Il vous permet de consul- 
ter la liste en cours, un article à la fois, et de supprimer l'arti- 
cle de votre choix en tapant 'S’ en face. Vous pouvez quitter 
cette opération à tout moment en entrant ’ ’. 
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e:aenû 
28810 
e 22215 
20020 
20430 


2n64û 


MODULE 4.2.13 : LIGNES 20000-20050 


REM HXKKEEXELEXEEREEEEXELEEXEE 
REM *XSuPpression de 1a liste* 
FEM *# en COUrS * 
REM HHKEXKELREXEXEXKXEEERELERX 


iécu 


2aasg C 


6 :aaca 


Ce 


1": PRINT 


cag74 
24480 
e 22450 


"GuFPprimer la liste en cours e 
PRINT te$ci,4i 


e 
PRINT te$ci,12 
PRINT:PRINT "Commandes disponibles @ 


1": PRINT 


za1an 


FEN 2:PFRINT "ENTER"; :FEN 1:PFRINT " e 


Pour l'article suivant" 


2a11& 
6 :a120 
24139 
@:n148 
24156 
e2n165 
24179 
ra182 
za19û 
LAZAE 
2a210 
2ar2a 
8230 
24248 





FRINT "‘d’ Pour suyPPriner" 
FRIHT "‘$S’ pour quitter" 
FRIHT:IMPLT "Que voulez-vous ";4%$ 
IF 9$="$" THEN RETURN 

IF LOUNERS HE" qd" THEM isi+l 
MHILE LOUERS(Q$2)="d" 

FOR jzi TO cu-i 

tege ji, Gè=te$c i+1,40 

te j.1)=te$c i+1.:12 

tet jistec i+12 

HEXT 

CU=CU- 1 

9$="":MEND 

WENC 

FETURH 


Commentaires 


Lignes 20150-20230 : La variable I contrôle quels éléments 
sont affichés. A noter qu'elle n'est pas incrémentée si vous 
entrez 'S’. I va pointer sur l’article à supprimer et l'opération de 
suppression va copier l’article inférieur suivant sur cette posi- 
tion. 


Test 


Exécutez le programme et rechargez le fichier contenant la 
liste en cours, sauvegardée lors d’un test précédent. Choisissez 
l'option 4, "Supprimer de la liste en cours’, du menu principal. 
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Vous pouvez consulter les trois articles de la liste en cours et 
en supprimer un; vérifiez sa suppression, en affichant la liste 
en cours. 


Module 4.2.14 : 
liste en cours 


Dans de nombreux cas, il faudra construire une liste en cours, 
obtenir. le total correspondant, puis passer rapidement à une 
nouvelle liste. Ce module efface le contenu de la liste en cours 
en une seule opération. 


Initialisation de la 


MODULE 4.2.14 : LIGNES 14000-14090 
Q14ann REM AXKEXAELEEENERAERERALERELERX 





14814 
14915 
14928 

14838 


6 ; 4049 


1495û 
8 j486a 

14G78 
@ 1408û 

14492 
nm 


Test 


REM #£Iinitialisation de la Listex 
REM *# en Cours * 
REM KEXKAEAEEENELREEEREEKAXELEEERAX 
FOR i=ÿ TO cu-1 

te$(i,Wiz"" 

te$gcji,ii="" 

tec i)=@ 

MEXT ji 

cuzf 


RETLIRH 





Exécutez le programme, rechargez le fichier qui contient la 
liste en cours et spécifiez l'option 3, 'Commencer une nou- 
velle liste’, sur le menu principal. Le menu principal doit 
réapparaître presque aussitôt. Essayez ensuite de sélectionner 
l'option 1 du menu principal. Là encore, le menu principal 
réapparaît; en effet, le module d'affichage a été appelé mais, 
comme il n'y a rien à afficher, l'exécution reprend immédiate- 
ment. 


Si ce test est totalement satisfaisant, le programme est opéra- 
tionnel. 
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PROGRAMME 4.3 : TEXTE 


Fonction du programme 


Le traitement de texte constitue l’une des applications les 
plus séduisantes des ordinateurs modernes. Avec un système 
de traitement de texte élaboré, tout le côté fastidieux lié à la 
rédaction quelle qu'elle soit, disparaît et les documents les 
plus complexes se transforment en tâches relativement sim- 
ples. Malheureusement, un logiciel de traitement de texte com- 
plet peut nécessiter plus de mémoire que n'en possède un 
micro même plus puissant que le 464. De plus, quelle que soit 
la rapidité du BASIC du 464, la vitesse exigée par un logiciel 
de traitement de texte demande normalement une programma- 
tion en code machine, le langage mystérieux compris par le 
processeur Z80 du 464. 


Le programme texte qui va suivre, n'a pas la prétention d'être 
un logiciel de traitement de texte. Toutefois, il vous permet 
d'utiliser votre 464 comme une machine à écrire beaucoup 
plus souple. Vous pourrez créer un texte, le modifier, lui ajou- 
ter des lignes ou des mots, déplacer des lignes et l'imprimer 
sur une imprimante compatible. Pour une utilisation profes- 
sionnelle, ce n'est pas l'idéal, mais pour de petits documents, 
Texte convient parfaitement. Sachez que l’une de mes plus 
grandes satisfactions en tant qu'auteur est de recevoir des let- 
tres de lecteurs des derniers livres, indiquant qu'ils ont rédigé 
leur lettre er utilisant les versions précédentes de Texte. 


123 rue Pimpon 
Bat. 3 


Vermenon 
Tel. 42 01 02 O3 


Cher Monsieur Blanc, 
Merci pour votre lettre concernant le développement de Texte, 


en remplacement de Wordstar. Je pense que nous n'en sommes 
pas encore là. 


Comme vous le voyez, les possibilités sont plutôt limitées. 
Toutefois, il fait bien son travail. 
Dans l'attente de votre prochain courrier, 


Je reste vatre dévoué 


David Laurent 





Figure 4.3 : Exemple de lettre composée et imprimée avec Texte 
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Voici les nouveaux concepts présentés dans ce programme : 


1) Curseurs contrôlés par programme et entrée de texte. 

2) Manipulation de données sous forme de grands tableaux 
de chaînes. 

3) Sortie d'un texte complexe sur imprimante. 


Module 4.3.1 : Initialisation 


Il s'agit d’un module simple sans rien de particulier, si ce n'est 
l'usage d'une ou deux des variables déclarées. 


MODULE 4.3.1 : LIGNES 11000-11100 


@ iidan REM XÉKEEEEREEEEEEEX 
11916 REM #Initialisationxk 
& 11929 FENM XXEXÆEEEELEEKEEX 
11434 in=i 
A CIM texteg( 14A3:1l1=1:Plz1 
texte A)=STRINGSE 32, CHR 245 15 





Lexte$e 1 =STRINGSC 32, CHR SE 244 )5 
3$= “ “ 

INPUT "Voulez-vous lire sur la cas 
éasni":3$ 

IF LONERSÉ 943$ 1="0"THEN GOSLE 193444 
RETURN 


Commentaires 


Ligne 11040 : Le tableau TEXTES va contenir la partie princi- 
pale du texte entré. 


Lignes 11050-11060 : Ces deux lignes de symboles graphiques 
créent deux marques qui apparaîtront sur l'écran lorsque 
vous rencontrerez la limite supérieure ou inférieure du bloc 
de texte. 


Module 4.3.2 : Entrée des caractères 


La tâche principale du programme consiste à accepter l'entrée 
au clavier et à en faire quelque chose. C'est le rôle de 
ce module. La plupart des lignes du module traitent l'entrée 
de caractères de ‘commande’ spéciaux qui demandent à Texte 
d'effectuer une fonction spécifique, par exemple supprimer un 
caractère. Certaines lignes ressemblent beaucoup au chapitre 
sur le graphisme, lorsqu'il faut un curseur mobile. 
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Ce module a pour principale fonction de vous permettre 
d'entrer du texte sur la liste 23 de l'écran, en l'éditant au fur 
et à mesure. Des modules ultérieurs prendront ces lignes et les 
intégreront au bloc principal de texte. 


Notez également qu'il s'agit de l’un des rares programmes de 
l'ouvrage qui présente des séparations entre les lignes, pour 
plus de clarté. En effet, bien que relativement court, le pro- 
gramme utilise une telle masse de noms de variables et de peti- 
tes boucles, qu'il est très difficile d’en suivre le déroulement 
sans une aide visuelle. Comme pour les programmes précé- 
dents ainsi présentés, les lignes ne contenant que le signe deux- 
points ( :) peuvent être éliminées si vous le souhaitez. 


MODULE 4.3.2 : LIGNES 12000-12430 





12208 WHILE t$="$" 

e12216 IF P<>G THEN t=@ ELSE t=LENCa 1 
12220 P=t 
12230 t$="" :MNEND 

6 1:240 : 


12258 : 
612268 UHILE P>9 AND t$=CHRS< 127) 


O12006 REM KEKKKKIOOEEENRX e 
12019 REM *Edition de ligne 

12028 REM KKKEREEEEEEENEEREE e 
12030 : 
1294û : 

{2956 MHILE 1 e 
12068 : 

@ ;207û : e 
12084 t$="":MHILE t$="" 

© 12894 LOCATE P-4DXINT(P/4@ +1, 23+INT(P/4 @ 
GD:PEN 1:PRINT CHR 143) 

012198 FOR tt=1 TO 2G:NEXT tt e 
12116 LOCATE P-46XINTCP/49 +1, 23+INT{P/4 
@S2:FEN 2:PRINT MIDSa$, P+1, 1 * 

12128 tS=INKEYS 
12128 WENC 
0 2140 : a 
12150 : 
@12168 IF tS-CHRS(13) OR CLEN(aS2>48 AND © 
tS=" "5 THEN t$="":GOSUR 12204 
@12170 IF t$="*" THEN GOSUB 15409 e 
12188 : 
12120 : 
& 
e 
& 
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12270 aS=LEFTSCa$.P-1 2+MIDSCa$,P+1 ) 
@ 12284 b=p-1 
12299 tS="" :WEND 
e 12309 
12319 : 
12324 WHILE t$>=CHR$c 2322 AND t$<=CHR$ 16 
O2 AND ES: 2>CHRSC 127 à 
12330 a$=LEFTSCa$, P D+t$+MIDS a$,P+1 ) 
81234 Pp=P+1 
12359 t$="" :WEND 
@12360 : : 
12379 : 
@1238% IF t#=CHRSC242) AND P>9 THEN P=P-1 
12398 IF t$=CHR$SC242) AND P<LENC23$2-1 TH 
@EN P=F+1 
12409 
12414 : 
@ 2424 LOCATE 1,23:PRINT a$ 
a 12% WEND 
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Commentaires 


Lignes 12080-12130 : Un module de clignotement du curseur 
qui fait clignoter un espace inverse sur un caractère sur la 
ligne 23. La valeur de la variable P indique la position du cur- 
seur. Le curseur alterne avec une lettre de la chaîne A$, utili- 
sée pour entrer du texte. 


Ligne 12160 : Cette ligne appelle la partie suivante du pro- 
gramme qui intègre l'entrée dans le bloc principal de texte. 
Cette intégration peut se faire de deux façons : soit en appuyant 
sur ENTER soit, automatiquement, dès que la longueur de texte 
dépasse 40 caractères et qu'un espace est entré. 


Ligne 12170 : Le fait de frapper la touche portant le symbole 
"flèche vers le haut’ sur la ligne supérieure des touches appelle 
un module suivant qui permet diverses fonctions d'édition sur 
le bloc principal de texte. 


Lignes 12200-12230 : Le fait de frapper ’ ’ déplace le curseur 
clignotant au début de la ligne ou, s’il y est déjà, à la fin de 
la ligne. 


Lignes 12260-12290 : Pourvu que le curseur clignotant ne 
soit pas sur le premier caractère, la touche DEL supprime le 
caractère placé à gauche du curseur. Cela est facilement accom- 
pli en reconstruisant la chaîne A$ sans le caractère en position P. 
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Lignes 12320-12350 : Ces lignes acceptent tout caractère dont 
le code est compris entre 32 et 163 (voir la liste complète en 
annexe), sauf la touche DEL traitée précédemment, et l'intè- 
grent à la ligne de texte entrée. Le nouveau caractère est inséré 
dans le texte à la position du curseur clignotant. 


Lignes 12380-12390 : Pour déplacer le curseur clignotant vers 
la droite ou la gauche, il suffit de changer la valeur de P en 
fonction de la touche de déplacement du curseur actionnée. À 
noter que, comme au chapitre sur le graphisme, le fait de défi- 
nir notre propre curseur nous permet de n’accepter que ce que 
nous voulons des touches de contrôle, telles que les touches 
fléchées, insert, delete et autres. Aucune de ces touches 
n'a d'effet automatique car elles ne sont pas comprises dans 
les caractères normaux d'impression que la boucle précédente 
accepte. Toutefois, nous pouvons les utiliser presque comme 
des touches de fonction en définissant leur effet; cela est vrai 
pour toutes, excepté la touche ESC, bien entendu, qui arrête 
toujours le programme. 


Test 


Comme aux programmes précédents, vous devez commencer 
par insérer des lignes de la boucle de contrôle. Donc entrez les 
lignes suivantes : 


10040 IF IN=0 THEN GOSUB 11000 
10060 GOSUB 12000 


puis exécutez le programme. Indiquez que vous ne voulez pas 
la lecture sur cassette et vous devez obtenir un curseur cligno- 
tant au début d'une ligne sur la moitié inférieure de l'écran. 
Ensuite commencez à taper : votre frappe doit s'afficher. Vous 
pouvez supprimer des caractères en utilisant la touche DEL, 
déplacer le curseur graphique sur ce que vous venez de taper 
ou le faire sauter du début à la fin en utilisant la touche ’ ’. 
La touche ENTER, les touches fléchées de contrôle ou le fait 
d'entrer plus de deux lignes de caractères suivies d’un espace, 
mettent fin au programme avec un message d'erreur ‘Undefi- 
ned line’ (Ligne indéfinie). 


Module 4.3.3 : Insertion de données 
dans le bloc principal de texte 


Les deux modules suivants fonctionnent conjointement. Ils 
traitent les lignes entrées au bas de l'écran et les intègrent 
dans le bloc principal de texte contenu dans TEXT$. Ce bloc 
de texte peut contenir jusqu’à 100 lignes de 32 caractères. Le 
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travail proprement dit est fait par le présent module, mais les 
résultats ne seront apparents qu'après l'entrée du module sui- 
vant qui affiche un segment du texte. 


MODULE 4.3.3 : LIGNES 13000-13310 


01:904 REM XKKXKEEEEAERERERNAKE 
13919 REM *XInsertion de li9nex 
© 12929 REM XHKK KR RRRRAAEHHX 
1393@ IF a%="# " THEN a$=SPACES 23) 
e1:240 *=9 
1305@ WHILE a$:>"" 
13064 : 
05974 : 
13084 d=@:MHILE LENCa$)<34 ANT d=A 
Q12ugn tt$c x D=LEFTSC 2%, LENC a$ 2-1 
13199 a$="" 
@1:114 d=1:UEMD 
13124 : 
e1:152 : 
13149 WHHILE LENCa$)>33 
e!2152 FOR i=33 TO 1 STEP -1 
13160 IF MIDSCa$, i,13<>" " THEN MEXT i:i 
=33 
013179 tt$Cx)2LEFTSC a%$, i-1 2 
13189 a$=MIDSCa$, i+1 
13194 x=x+i 
13204 LHEND 
e13219 HEHD 
1SLEN “ext 
13230 : 
03540 : 
13254 FOR i=ll+x TO Pl+x STEF -1 
153264 texteÿ(iD)ztexteg( i-x0) 
13276 NEXT i 
615288 FOR i=û TO x-1 
13299 texte$cp l+i ttc i 2 
@13394 NEXT i 
13310 a$=" ":p=Q:11=11+x:Pl=Pl+x 
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Commentaires 

Ligne 13030 : Cette ligne n'est là que pour faciliter la sortie du 
texte sur une imprimante. Le problème se pose lorsqu'il faut 
imprimer un ou plusieurs mots sur la partie droite de la page. 
L'affichage est basé sur des lignes de 32 caractères, tandis 
qu'une imprimante standard a des lignes de 80 caractères. 
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A l'impression, le programme Texte traite deux lignes du texte 
affiché ensemble pour créer une ligne imprimée. Donc si vous 
entrez du texte sur la partie droite de l'écran, vous obtiendrez 
soit une impression au milieu de la page soit un ajout à la 
fin de la ligne précédente. Pour pallier cet inconvénient, une 
méthode laborieuse consiste à entrer d'abord une ligne vide en 
appuyant sur ENTER, quand il n'y a pas de texte à entrer. Cela 
donne une ligne vierge sur le papier et garantit que la ligne 
imprimée suivante commencera du côté gauche de la page. 
Ensuite, il faut taper une ligne complète d'espaces, suivie 
d'une autre ligne d'espaces se terminant par le mot à placer 
du côté droit. L'imprimante ’imprimera' tous les espaces et la 
phrase finale apparaîtra sur la partie droite du document. 


Toutefois, au programme final, la ligne complète d'espaces 
peut être remplacée par une ligne composée d'un simple ”’. Le 
présent module traduit automatiquement cela en une ligne de 
33 espaces. : 


Ligne 13040 : X est la variable qui permettra de détecter 
combien de lignes de texte sont nécessaires au nouveau 
texte ajouté. 


Lignes 13050-13210 : Chaque fois qu'une ligne de caractères 
est ajoutée au bloc de texte principal, elle est découpée à par- 
tir de A$, le nouveau texte entré au module précédent. Ce pro- 
cessus se poursuit jusqu'à épuisement de A$. 


Lignes 13080-13110 : Le nouveau texte est tout d'abord placé 
dans un tableau TT$ temporaire. S'il y a moins de 34 caractè- 
res y compris l’espace qui se trouve toujours à la fin, le nou- 
veau texte peut tenir dans une ligne de 32 caractères. Il suffit 
de le transférer puis d'effacer Af$. 


Lignes 13140-13200 : S'il y a plus de 33 caruvtères, de sorte 
que le nouveau texte ne tient pas dans une seule ligne, il y a 
recherche vers l'arrière à partir du caractère 33 pour trouver le 
premier espace indiquant une fin de mot. La partit de A$ jus- 
qu'à ce point peut alors être transférée ; cela empêche tout par- 
tage de mot en deux. 


Cette section de texte disparaît du début de A$ et la bou- 
cle principale est à nouveau exécutée exactement de la même 
manière, le texte suivant étant placé dans une ligne différente 
de TT$. 


Lignes 13250-13300 : La variable PL enregistre l'emplacement 
d'insertion de la nouvelle ligne dans le bloc principal de texte. 
Cet emplacement démarre à 0 quand il n’y a pas de texte, et 
reste normalement à la suite de ce qui a été entré. Des modu- 
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les ultérieurs vous permettront de déplacer le point d'insertion 
vers le haut et vers le bas dans le bloc principal. La première 
des deux boucles de cette section commence par libérer de la 
place au point d'insertion, pour le nombre de nouvelles lignes 
enregistrées par X. Pour cela, tout le texte est déplacé entre 
le point d'insertion et la dernière ligne (LL), vers le haut, du 
nombre de nouvelles lignes représenté par X. La deuxième bou- 
cle copie le contenu de TT$ dans l’espace ainsi créé. 


Test 
Entrez une ligne supplémentaire : 
14130 RETURN 


puis exécutez le programme. Lorsque le curseur clignotant 
apparaît, entrez : 


AAAÏ[ENTER] 
BBB{ENTER] 

CCCIENTER] 
DDDIENTER] 


Après cela, appuyez sur STOP pour mettre fin au programme. 
Puis, en mode direct, entrez : 


FOR I1=0 TO 5 :PRINT TEXTES$(I) :NEXT[ENTER] 


Vous devez voir une ligne brisée, suivie des quatre lignes de 
texte entrées, suivies d'une autre ligne brisée indiquant la fin 
du texte. 


Module 4.3.4 : Affichage du texte 


Ce module affiche quinze lignes du bloc principal de texte. 


MODULE 4.3.4 : LIGNES 14000-14130 


Qi MEM ÆXEKEKKELKELEREREEELKEEERAEEX 
14414 REM *Affichañe de la sectionx 
e14215 REM * de texte * 
14020 REM KKEHHXHEEMEXEEKELELEEEEEEX 
e 14830 ss=pP 1-7 
14Qdu IF 11-PF1<8 THEN ss=11-1S 
1485@ IF ss<4 THEN ss=û 
i4n69 CLS 
1444 FOR izss TO s52+15 
14454 PEN 2 
14094 FRINT TEXTES I) 
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@i*igf IF i=Pl-1 THEN PEH 1:PRIHT "23" & 
14114 HEXT à 

e!ti2 LOCATE 1.:Z23:PEN Z:PRINT 4$:PEN 1 € 
14124 RETURN 





Commentaires 


Lignes 14030-14050 : La variable SS représente la ligne de 
départ de la section à afficher (Section Start + Début de la sec- 
tion). Elle est calculée de façon à se trouver normalement huit 
lignes avant le point d'insertion actuel. Si le point d'insertion 
est près de la fin du texte, par exemple tout-à-fait en bas, cela 
signifie que huit lignes seulement seront affichées, donc la 
ligne 140490 fait reculer le point de départ. Enfin, s’il y a moins 
de quinze lignes ou si le point d'insertion est au début, le point 
de départ précédera le début du texte, donc il est augmenté jus- 
qu'à O. 

Lignes 14070-14110 : Les 15 lignes sont à présent affi- 
chées. Toutes les lignes se terminent par un point-virgule pour 
empêcher que la position d'affichage ne descende d'une ligne. 
Sinon, une ligne pleine de 40 caractères (les première et der- 
nière lignes comprenant des symboles graphiques) enverrait le 
curseur sur la ligne suivante, laissant une ligne vierge dans son 
déplacement. Pour des lignes comptant moins de 40 caractè- 
res, l'effet du point-virgule est annulé par un PRINT vide. Seul 
autre raffinement : le point d'insertion est marqué par un signe 
">"; toute fonction d'édition telle qu'addition, copie, ou sup- 
pression de lignes agira sur la ligne au-dessous de la marque. 


Ligne 14120 : Enfin, parallèlement à l'effacement de l'écran, 
tout contenu de A$ est réaffiché au bas de l'écran. 


Test 


Effectuez le même test qu'au dernier module, à la seule diffé- 
rence que, au lieu de devoir entrer une commande spéciale 
pour voir votre entrée, chaque ligne doit venir dans le texte 
principal lorsque vous appuyez sur ENTER. 


Module 4.3.5 : Edition du texte 
principal 
Nous avons vu comment éditer le nouveau texte pendant son 


entrée. Etudions à présent comment intervenir sur le texte 
principal existant. Ce module vous permet de déplacer le point 
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d'insertion sur le texte, de copier certaines lignes au bas 
de l'écran pour modification, et de supprimer des lignes exis- 


tantes. 


MODULE 4.3.5 : LIGNES 15000-15320 


O1 REM HÉEEELÉEEEEEÉE 
15814 REM #fMode Edit ionk 
ol=tin REM KEEEKEEKEEEEEE 
15834 WHILE 1 
e15949 P2=Pl-ss 
15454 : 
15869 : 
015979 t18="":MHILE t1$="" 
15454 LOCATE 1,PZ+1:PRINT " ":FOR ii TO 
@ S:HEXT i 
15494 LOCATE 1,P2+1:PRINT ">":FOR izi TO 
@ 2G:NEXT i 
15144 t1H=LOUERSC INKE Sd 
e15114 HENC 
15124 : 
15134 : 
OiSi4n pL=P L+Ct1S=CHRSC 240 > +104 tis="u" > @ 
:IF Plé1 THEN Flzi 
015159 Fl=P1-Ct1$=CHRSC Ed 1 12-1mkcti$="g" 1 @ 
:IF PL>11 THEN pl=ll 
@15164 IF +1$=CHRSC13) THEN t$="":RETURN @ 
15179 : 
15184 : 
15199 WHILE Pl<IL AND t1$=-CHP$< 127 5 
e!:°22 FOR ip TO ll'textes( i stextegé( i+ 
1):MNEXT i 
15214 11=11-1 
015229 t1$="": END 
15234 : 
8152:44 : 
1S2S4 IF Fl£1l AND t1$="c" THEN ag=texte 
efPl+" " 
1S268 IF tis="p" OR t1$="y" THEH GOSUB 1 
ea 
1 





S274 IF t1$=-":" THEN GOSUB 18404 
15289 IF ti$="f" THEN GOSUE 164a4 
15294 : 

15349 : 

615318 GOSUE 14aaa 
15324 WEND 

CL 2 
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Commentaires 


Ligne 15040 : Pour les besoins de ce module, le numéro de 
ligne sur l'écran du symbole ’>’, qui indique le point d'inser- 
tion en cours dans le texte, sera stocké dans la variable P2. 


Lignes 15070-15110 : Le curseur ‘>’ clignote pour indiquer 
que le programme est en mode édition. 


Lignes 15140-15150 : Vous pouvez déplacer vers le haut ou 
vers le bas le curseur d'édition sur le texte, mais seulement 
en mode édition. La touche fléchée vers le haut ou vers le bas 
déplace le curseur d'une ligne. Les touches ’U” ou ‘D’ dépla- 
cent le curseur de 10 lignes vers le haut ou vers le bas. A noter 
que, en pratique, à moins que vous ne rencontriez le début 
ou la fin du fichier, ce n’est pas le curseur lui-même qui se 
déplace, mais le texte qui l'entoure. 


Ligne 15160 : La touche ENTER met fin au mode édition. 


Lignes 15190-15220 : La touche DEL actionnée en mode édi- 
tion supprime la ligne de texte sous le curseur d'édition. 


Ligne 15250 : La touche ‘C’ actionnée en mode édition copie 
la ligne se trouvant sous le curseur d'édition, au bas de l'écran, 
afin qu'elle puisse être traitée comme du nouveau texte. 


Ligne 15260 : La touche ’P’ ou ’V’ actionnée en mode édition 
appelle le module suivant, qui envoie le texte à une impri- 
mante ou à l'écran en mode 80 colonnes. 


Ligne 15270 : La touche 'S’ actionnée en mode édition appelle 
le module suivant qui sauvegarde le texte sur cassette. 


Ligne 15280 : La touche ’F' actionnée en mode édition appelle 
le module suivant qui aménage le texte et essaie de standardi- 
ser autant que possible la longueur des lignes. 


Test 


Ce module étant entré, effectuez le même test que pour le 
module précédent, en insérant quatre groupes de lettres. 


1) Puis frappez ‘’’ et le curseur d'édition doit commencer 
à clignoter. 

2) Entraînez-vous à déplacer le curseur d'édition vers le haut 
et vers le bas avec les touches fléchées. Si vous utilisez ‘U’ ou 
‘D’, le curseur doit se porter au début ou à la fin du texte, puis- 
qu'il y a moins de 10 lignes. 

3) Déplacez le curseur d'édition sur l’avant-dernière ligne de 
texte. Frappez ’C' ; 'DDD' doit être copié sur la partie inférieure 
de l'écran. 
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4) Appuyez sur la touche DEL et la ligne 'DDD' doit disparaître 
du texte principal. 

5) Déplacez le curseur d'édition au début du texte. 

6) Appuyez sur ENTER pour terminer le mode édition. 

7) Lorsque le curseur clignotant revient au bas de l'écran, 
appuyez à nouveau sur ENTER. 'DDD' doit se trouver au début 
du texte. 


Module 4.3.6 : Formatage du texte 


Vous pouvez également aménager le bloc principal de texte 
entré. C'est nécessaire car l'un des principaux avantages de 
l'édition de texte, ou de son aîné, le traitement de texte, est la 
possibilité de supprimer ou d'insérer de nouvelles phrases dans 
un texte existant. Après quoi, le texte paraît souvent désor- 
donné; c'est pourquoi la plupart des logiciels de traitement de 
texte qui n'aménagent pas automatiquement le texte pendant 
l'entrée, disposent d'une fonction ‘format’. Vue au niveau le 
plus élémentaire, la fonction de formatage consiste à examiner 
chaque ligne et à déterminer si le premier mot de la ligne sui- 
vante pourrait être placé à la fin de celle-ci; si c'est le cas, le 
mot est déplacé. Il en résulte un texte plus net, même si des 
espaces ne sont pas insérés pour que toutes les lignes se ter- 
minent dans le même alignement. Le présent module assure le 
formatage du texte contenu dans TEXTES, en utilisant les tech- 
niques de découpage de chaîne présentées au chapitre 1. 


MODULE 4.3.6 : LIGNES 16000-16310 





Qjénnu REM ÆHHEEKEKEKEEETEXEEEEREX e 
1éAi4 REM *Formatage de liQnes* 
16020 REM KÉXEEEHERELEEEREEEXELE e 


16039 FOR i=1 TO l1-2 

@ 15242 SEA :UHILE textes i2c>"" AND textes à 
Citi32"" AND textes( io SSPACESC32) AND 
texteS( i+1)C>SPACESC 32% AND d=8 

6:6a54 : & 
16964 : 

@16070 sP=32-LENC textes i >) e 
16484 mot=INSTRC textes( i+13," "3 

0616098 IF mot=A THEN mot=LENt texte i+13 @ 
#1 
16198 IF mot>sp THEN d=i 

Oiéita : e 
16128 : 

O6139 d2=G:MHILE sP>=mot AMD sF{=LENCtex @ 
te$ei+132 AND d2=8 
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@iEian textes( istestedé 14" MHLEFTSC text 
e$e 1+13mot-15 

@iflié textesc i+1=MIDSE textes i+1 2, mot+1l 
ï 

















e 
S 
16164 d2=1 :WEHD 
Oiéi7a : e 
16184 : 
16190 sp=32-LEN textesc ii e 
1620û d2=G:UHILE LENCtexteséi+1i<se AN 
® :=û AND d£=û e 
LES textedre ji isterxtege ji 14" Mtostedé 141 
@ : e 
16224 FOR j=i+l TO ll 

& 162 textegé jistextegé j+1 e 
16244 HEXT 
16884 1l=ll-1:Pl=Pl-1 

Ocean de=1:HENC e 
16274 : 
16280 : e 
16294 WEHC 

@162%û HEXT i e 
16214 RETURH 

& a 


Commentaires 


Lignes 16030-16300 : L'opération de formatage commence à la 
première ligne et se poursuit ligne à ligne sur tout le texte. 


Lignes 16040-16290 : Seules sont concernées les lignes ayant 
un contenu. Par exemple, à la fin d'un paragraphe, il peut y 
avoir une ligne inférieure à 32 caractères; nous ne souhaitons 
pas voir le début du paragraphe suivant s'ajouter à la fin de 
cette ligne. Pour cela, il suffit d'entrer une ligne vide après la 
fin du paragraphe. Le module de formatage n’'ajoute pas cette 
ligne vide à la fin de la ligne précédente, et il ne copie pas non 
plus des mots de la ligne suivante, dans la ligne vide. 


Ligne 16070 : La variable SP permet de stocker la quantité 
d'espace restant à la fin de la ligne en cours d'examen. 


Ligne 16080 : MOT permet de stocker la longueur du premier 
mot sur la ligne suivante, comme l'indique la présence d’un 
espace. 


Ligne 16090 : S'il n’y a pas d'espace sur la ligne suivante, la 
longueur de MOT devient identique à la longueur de la 
ligne complète. 
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Ligne 16100 : Si la longueur du premier mot sur la ligne sui- 
vante est supérieure à l’espace disponible à la fin de la ligne 
en cours, il est inutile de poursuivre cette dernière plus avant. 
Donc la boucle WHILE se termine et la boucle FOR passe à la 
ligne de texte suivante. 


Lignes 16130-16160 : Ces lignes sont mises en action s'il y a 
assez de place à la fin de la ligne en cours pour le mot suivant, 
mais pas pour toute la ligne suivante. Elles ont pour effet de 
copier le mot à la fin de la ligne en cours et de le séparer du 
début de la ligne suivante. 


Lignes 16190-16260 : Peut-être la ligne en cours a-t-elle assez 
de place pour contenir la totalité de la ligne suivante. Dans ce 
cas, il ne suffit pas de copier la ligne suivante dans la ligne en 
cours : la totalité du tableau doit être décalée d'une ligne pour 
combler l'espace créé, sinon le programme sera gêné par l'ins- 
truction, citée précédemment, que les lignes vides doivent res- 
ter indépendantes. 


Test 


Effectuez le même test que précédemment, en entrant les 
quatre groupes de lettres. Lorsqu'elles sont toutes affichées 
comme faisant partie du texte principal, frappez ‘’ pour entrer 
en mode édition puis frappez ‘F'. Après un certain délai (qui 
sera relativement long si vous avez entré beaucoup de texte), le 
texte principal s'affiche à nouveau, mais cette fois-ci les quatre 
groupes de lettres ont été rassemblés sur une ligne. 


Module 4.3.7 : Fichiers de données 


Il s’agit d'un module de fichier de données standard. A noter 
l'utilisation de LINE INPUT, qui assure que le texte contenant 
des virgules et d’autres caractères sur lesquels bute INPUT, est 
bien pris en compte. 


En outre, ce module semble avoir mis en évidence une ano- 
malie assez mystérieuse sur la plupart des 464. Elle se traduit 
par une altération, totalement invisible pour l'utilisateur, de la 
chaîne FI$ pendant le déroulement du module; il s'ensuit que 
le 464 ne reconnaît pas le nom du fichier sur cassette comme 
étant le même que celui qui a été entré, même si les deux s’affi- 
chent de façon identique. Dans notre propre version du pro- 
gramme, la ligne suivante : 


19075FI$=FI$ 
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aussi curieux que cela puisse paraître, contourne le problème 
en rappelant à l'ordinateur la vraie valeur de la chaîne. Si 
le programme fonctionne sans cet ajout (comme il le devrait), 
vous pouvez ignorer ce commentaire. 


MODULE 4.3.7 : LIGNES 18000-19150 


O1EANA RENM ÆHEAAKELELEEKEEEEMELENEXE 
1914 REM #Sauvegarde sur cassette* 
el:926 FEM EXRELEXAEREREEEEEERERXAEX 
1439 q$="":UHILE LOWERSC 9$2<2"o" 
eo: CLS: INPUT "Nom de fichier:",.fif 
18959 PRINT "Fichier À sauvegarder ";ifi$ 
18A6A INPUT "Est-ce correct Ca/n)";:4q$ 
@;£@74 LEND 
12984 OPENOUT fi$ 
015454 PRINT #3:F1 
15100 PRIHT #3,11 
@ei:iis FOR i=a TO 11 
12154 PRINT #9, textegc i 
el: HEAT i 
18154 CLOSEQOUT 
18164 RETURH 





65000 FEM KEKEAXEEKEEEKMEEEEKERX 
19414 REM *Lecture sur cassette* 
19024 REM KKKKKAEEEMEEKEEAEREERX 
19439 q$="":UHILE LOMNERSC9S2<>"o" 
@12944 FRINT:INPUT "Nom de fichier:",fi$ 
12954 FRINT "Fichier à sauvegarder ";:fi$ 
19464 INPUT "Est-ce correct Co-n2":94$ 


15@78 WEHD 
@1228% GPENIH is 
19994 INPUT 49,1 
19495 INPUT #3,11 
612190 FOR i=A TO 11 | 
15114 LINE INPUT #3, textes( i) 
@:12159 HEXT i 
15144 CLOSEIN 
@12158 RETURN 


® 2 2 2 2 2 2 2 2 2 2 D D 9 9 


Module 4.3.8 : Module de contrôle 


Il s’agit d'un module de contrôle standard. 
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MODULE 4.3.8 : LIGNES 10000-10060 


RENM ÆHÉKEKEEEEEEFELRELERXEE 
REM Boucle de Controle* 
REM ÆHÉLEHEELELKEELEEEEEE 
MODE ji 





=, 
ax 


St Se 0 D mt 


IF in=f THEN GOSUE 11448 
GÜSUE 14448 


GOT 12484 


» 9 % 9 
Dh pt De be be en De 
RS D 6 


nr GO SD 
TAN Le 0) PO mm 15 


Module 4.3.9 : Impression du texte 


Si vous disposez d'une imprimante - et un éditeur de texte vous 
sera bien peu utile si vous n’en avez pas - il vous permet de 
transférer le contenu de l'écran sur papier. En outre, ce module 
vous permet de visualiser d'abord le texte en mode 80 colon- 
nes sur l'écran, pour vous assurer que sa présentation donnera 
un bon résultat sur l'imprimante. 


MODULE 4.3.9 : LIGNES 17000-17250 





@i”dnû RENM XHEFEXANMENEELEEELREEEX e 
17814 REM Sortie sur imPrimantexk 

el” RENM ÆHHKEKALEEELELREREERELÉE e 
17H34 canalzé 
1794Q IF ti$="u" THEH canalz9:PEH 1: MODE 

@ 3 e 
17054 x=1 

Oi74én MHILE x<1l © 
17874 d=A 

Qir450 : © 
17494 : 

he IF texte$(xi="" THEH PRINT #canal: @ 
= 
17114 IF d=ûä THEH FRINT #canal,SPFACES8 : e 
itextegexiin "; 
17120 x=zx+1 

©7129 : ® 
17144 : 

017150 WHILE x<11 AND dû e 


17164 PRINT #canal,texteg(xo 
@i7174 IF testés "" THEN FRIHT #canal rs) 
17194 x=x+1 
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17185 IF canal=A THEM IF IHKEYS$="" THEM 
GOT 17185 
e 17194 d=1i:MENC 
17244 : 
17214 : 
17224 MEHC 
17234 FRINT #canal 
@17244 IF canal=A@ THEN IF INKE‘Y$="" THEN 
GOTO 17244 
@17274 MODE 1 : FETLRMN 


© © © © © 





Commentaires 


Lignes 17030-17040 : Ce module est appelé, que vous souhai- 
tiez voir le texte sur une imprimante ou sur l'écran en mode 
80 colonnes. Toutefois, si vous voulez l'afficher sur l'écran, la 
sortie du programme sera dirigée vers le canal 0 (l'écran) et le 
MODE2 sera actif. 


Ligne 17050 : La variable X permet d'enregistrer la progression 
du module au travers des lignes de TEXTE$. 


Ligne 17070 : La variable D permettra de sauter certains 
segments du module lorsqu'il ne reste plus rien à faire sur une 
ligne particulière de texte. 


Ligne 17100 : Comme lors du formatage, le programme ne 
tente pas de traiter des lignes vides; lorsqu'il en rencontre 
une, une instruction PRINT # vide permet de deplacer la posi- 
tion d'impression d'une ligne vers le bas. La variable D recoit 
la valeur 1 pour indiquer qu'une ligne de texte est terminée. 


Ligne 17110 : Si la ligne en cours n'est pas vide, elle s'imprime 
dans la première moitié d'une ligne de 64 caractères, suivie 
d'un espace. Notez le point-virgule qui assure que les caractè- 
res suivants imprimés suivront immédiatement. 


Lignes 17150-17190 : La deuxième moitié de la ligne est 
imprimée. S'il s'agissait d'une ligne vide, un PRINT # sup- 
plémentaire permet de déplacer l'imprimante sur la ligne sui- 
vante. Si la sortie est envoyée à l'écran, un temps d'arrêt est 
inséré après chaque ligne affichée, jusqu'à ce que vous frappiez 
une touche. Cela permet d'afficher des documents dont la lon- 
gueur dépasse une page d'écran. 


Ligne 17240 : Là encore, si l'affichage a lieu sur l'écran, une 
autre frappe est nécessaire lorsque le document est terminé. 
Cela vous empêche de dépasser la dernière ligne par mégarde 
et de perdre ainsi l'affichage du document. 


Test 
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i vous disposez d'une imprimante, vérifiez qu'elle est bien 
connectée et sous tension, puis entrez du texte. Appuyez sur 
SHIFT/0 pour entrer en mode édition puis frappez ‘P'. Le texte 
doit s'imprimer. Si ce test est satisfaisant le programme est 
opérationnel. Pour vous aider à bien maîtriser le programme, 
voici un tableau des différentes commandes d’une touche. 


TEXTE : TABLEAU DES 
COMMANDES D'UNE TOUCHE 


En mode entrée de texte 


ENTER 


DEL 


TOUCHES 
FLECHEES 


A 


En mode édition 


ENTER 
TOUCHES 


FLECHEES 
U ou D 
DEL 


C 


Place le nouveau texte dans le texte prin- 
cipal. 


Déplace le curseur au début ou à la fin de 
la ligne. 


Supprime le caractère à gauche du curseur. 


Déplacent le curseur à gauche ou à droite. 
Pour entrer en mode édition. 


Met fin au mode édition. 


Déplacent le curseur d'édition d’une ligne 
vers le haut ou vers le bas. 


Déplacent le curseur d'édition de 10 lignes 
vers le haut ou vers le bas. 


Supprime la ligne située directement sous 
le curseur d'édition. 


Copie la ligne située directement sous le 
curseur d'édition. 


Imprime le texte principal en cours. 


Sauvegarde le texte principal en cours 
sur cassette. 


Formate le texte principal. 
Visualise le texte en format 80 colonnes 
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PROGRAMME 4.4 : MULTIQ 


Fonction du programme 


Le dernier programme de ce chapitre va nous permettre de 
nous éduquer en joignant l’utile à l’agréable. Je ne sais pas 
si vous apprendrez beaucoup sur un sujet donné avec ce pro- 
gramme, mais il est distrayant à utiliser et vous donnera le 
virus des ’questions/réponses’. De plus, ce programme a ses 
propres lettres de noblesse car une version précédente de Mul- 
tiQ a été le premier programme (tout au moins d’après le com- 
muniqué de presse) à la base d'un jeu de questions pour les 
auditeurs à la radio britannique. 


Comme son nom le laisse deviner, MultiQ est un programme 
polyvalent. Il peut vous apprendre une langue et, quelques 
minutes plus tard, vous poser des questions très difficiles sur 
l'histoire du 19ème siècle. Il crée des tests avec questions/ré- 
ponses aléatoires du type de plus en plus répandu dans les exa- 
mens, posant une question et fournissant cinq réponses possi- 
bles, dont une seule est correcte. Un score permanent est tenu 
à jour qui permet d'évaluer les connaissances de l'utilisateur 
sur le sujet en question. Bien entendu, l'essentiel du travail 
incombe au programmeur ; non seulement il faut entrer le pro- 
gramme, mais également donner un groupe de questions suffi- 
samment vaste pour que les tests soient significatifs. 


Module 4.4.1 : Initialisation 


Comme pour tous les programmes polyvalents de ce chapitre, 
ce module permet de décrire le type de fichier à gérer dans la 
session en cours. 


MODULE 4.4.1 : LIGNES 10000-10100 





eiAaan REM HEKEELEEEEEEKAEE 
1an14 REM #Initialisation* 
1AA2A RENM XEKEKEEEKLAXELEX 
19434 DIM nombs 12,qué di, tableau 499,11, 

at:r2:$72:ntsPet 1:37 e 
14444 juste=zf:total=f:it=A 
18454 MOCE 1 

ans PEN Z:PRINT TAB 17 >; "MULTIG": PRINT e 

TRES 1F5"=zzszzz" 
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@iaara LUINDOWU 1,49,4,25 e 
14484 PEN 1 

sn INPUT "Lire sur cassette 7 Lo‘ni"; @ 

ef IF LOMERS(4$="0" THEN GOSUE 23807 @ 
ELSE GOSUE Z44@a 





Commentaires 


Ligne 10030 : Le tableau NOM$ permet d'enregistrer les noms 
généraux donnés par l'utilisateur aux questions et aux répon- 
ses, QU sera utilisé pour définir 


MULTIQ 


E=STSS 


O EVENEMENT : Déclenchement eè guerre mondi 
ale 
e 
GATE : 
8 1: 1937 
2) 1941 
e 2) 1958 
4) 1944 
e 4° 1933 


a Cuelle est la bonne réponse C1-59%S 
KAKXKKEEKXX 
ÉXELEXAAEKE 

Ox JUSTE! *# 
XXEKAEEAXX 

OHEXAEXAXEX 


8 9 2 D D? D D 9 D 9 


@fiutre question (on)? ! 





Figure 4.4 : Partie d'un test créé par MultiQ 


les tests aléatoires, TABLEAUS$ contiendra le fichier principal 
de questions et de réponses, QTYPES contiendra les noms des 
types pouvant être alloués aux questions et aux réponses, et 
NTYPE stockera le nombre de chaque type dans le fichier prin- 
cipal. 
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Module 4.4.2 : Structure du test 


Nous avons dit que MultiQ définit des tests, c'est-à-dire pose 
des questions et affiche les réponses possibles. Ces lignes 
vous permettent de donner un titre général aux questions 
et aux réponses. Par exemple, si le programme devait ser- 
vir à apprendre l'anglais, vous pourriez poser la question 'MOT 
FRANCAIS’ et la réponse 'MOT ANGLAIS EQUIVALENT. 


MODULE 4.4.2 : LIGNES 24000-24130 


@EAAAA REM ÆEXALELERELELELELES 
Edfi4 REM ÆStructure du Test# 
s PAGE RENM ÆHEEELEEELELELEEELEE 
2445 QHe "M MMILE LONERSE 4 $ é rN 
cdndf CLS 
OSaGse PRINT "Structure du Test:":PRINT 
cé THPUT "Horn de 13 réPFo anse io", nome fi 2 
4474 INPUT “ Hom de la question", nome 1 @ 





PRIHT:IHPUT "Est-ce correct Ÿ Con @ 


@=449% HEND 

2410@ qtupe(Di="Pas de tupe" 
et119 ntspes= 

24120 GOÊUE 12474 
e 24152 FETLRN 


Module 4.4.3 : Messages d'erreur 


Ce module standard affiche les messages d'erreur provenant 
d'autres segments du programme. 


MODULE 4.4.3 : LIGNES 25000-25070 


O:SGAn REM HÉKKEEEE 
eSa14 REM kErreurk 

O2SA2A FEM XEKKEXEX 
ESGSA PRIHT:PRIHT x$ 


25444 SOUHD 1,144@,144 
25050 FOR i=1 TO 1546 
Us MEXT i 

2S47g RETURH 
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Module 4.4.4 : Le menu 


Il s’agit d'un module de menu standard 


MODULE 4.4.4. : LIGNES 11000-11210 





A 


FEN KÉLEERERELEENRHEEE 

RENM %lens PrinciFal# 

FEM ÆEKEELERAEEEELEX 

WHILE z<7 

CLS 

PRIHT"COMMANDES CISPOHIBLES :" 


me pe pe 
RARE) 


( 


29 2,9 


En pe Dé bé pe 
St Se St 


ni 
DJ ON Be Ge Pi me Si 


UE mo D Lea] 
Si 1 


FRIHT 
PÉIHT 
PRIHT "Ei 
PRINT "39 


"li Entrer nouvelles données 


FRINT 
FRIHT 


“4 


"50 


résultat" 


TRS 


Entrer nouveaux types" 
Fechercher-/Suprrimer! 
Générer les questions!" 
Afficher ou réinitialise 


CA FRIHT 
sur Cassette!" 
Oiiist PRINT "75 

11149 PRINT 
@11154 INPUT" Votre choix: "oz 

116 IF 222 AWD z<7 AND it=f THEH x$a"x# 
OHHEEEEEE FHS ENCORE DCE COHMEES #ÆK#ÆE#AEKX 

"GOSUE 2SGAG : zet 


eliiirs OH z GOSUE 12664, 124 


CR 


Sauveñarder les données 


F 


Arreter" 


A 


D 
= 


MEHC: 
ÊLS 
LOCATE 12, 11:FRINHT 
EHC 


“FIH DU COURS" 


2 2 9 2 29 2 2 9 2 D D D 9 


Loi jé je jen 
deb pet De D D 
Pi Fo re me LE 
D 1 


2 it LD 





Module 4.4.5 : Définition des types 
de questions 


Lorsque vous entrerez les modules ultérieurs, vous constaterez 
que MultiQ prévoit deux niveaux de difficulté dans ses tests. 
Il utilise pour cela des types de questions. Si nous reprenons 
l'exemple d'un cours d'anglais, il est possible de diviser les 
types de mots affichés en différents groupes grammaticaux, tels 
que verbes, noms, adjectifs, et ainsi de suite. Si un mot fran- 
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çais affiché est un verbe, et si, parmi les cinq réponses angjlai- 
ses possibles une seule est un verbe, le test est bien plus facile 
que si les cinq réponses possibles étaient des verbes. 


Le présent module vous permet de définir jusqu'à 10 types de 
questions ou de réponses, avec la possibilité d'associer un type 
à une question dès son entrée. Lorsque MultiQ définit ulté- 
rieurement un test, il vous demande si vous souhaitez que les 
réponses possibles ne proviennent que du même type que la 
réponse correcte, ou de l’ensemble des réponses. 


MODULE 4.4.5 : LIGNES 12000-12150 


Qi FEM KÉEXELEELEEELELEE 
12Q14 REM XNoauveaux turFesk 
12424 FEM #HÆEEXERELEEEXEX 
12954 9Q$="":UHILE 1 
e!:245 CLS 
120454 PRINT "Tupes:":PRINT 
124684 PRINT "Types jusque là: ":PRINT 
12474 FOR izÿ TO ntsPes-1 
12484 PRINT i+1:5"ï ";qtyupegi 
@1:494 HEXT i 
12149 IF ntures=in THEN x$="##4# PLLE D 
@ FLACE FOUR D'AUTRES TYPES XK#%":GOSUE 
5404 : RETURN 
Fe PRINT:IHPUT "Entrer nouveau tp 
“ Four Quitteris:";:aqg 
e! 2120 IF 9q$="5" THEN RETURN 
12139 AtyPpe$c ntyPes 1=9%$ 
12149 ntaFes=ntyPest+i 
612154 WEND 





rom 
® 2 2 2 2 2 D D 9 


DO 


Test 


Vous devez être en mesure d'exécuter le programme et d'entrer 
jusqu'à 10 types de questions. Pour avoir confirmation que les 
types ont bien été acceptés, arrêtez le programme et tapez : 


FOR 1=0 TO 9 :PRINT QTYPES$(I) :NEXT I[ENTER] 


Module 4.4.6 : Recherche binaire 


Il s'agit d'un module de recherche standard qui fonctionne 
d’après l'ordre alphabétique selon des réponses à des ques- 
tions. À noter que, comme vous le constaterez en entrant 
le module des nouvelles données dans un moment, chaque 
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réponse est précédée d'un simple caractère (0-9) pour indiquer 
son type. Le fichier sera donc trié d'abord d'après les types et 
à l'intérieur des types, d'après l'ordre alphabétique. 


MODULE 4.4.6 : LIGNES 14000-14110 


@ jidaan REM HÉEHEXEKEEEELEEHLENAAE 
14816 REM #kecherche binairek 
@ 14924 FEM XEKEAEEEEEREEELEREEE 
14454 IF it=A THEN 23=û:RETURH 
e 14fd4@ PozIMTÉLOGÉ 1t 2/L0G6 2iniese2tpo] 
14454 FOR izro TO @ STEP -1 
14A64 sszss+2"i# (tahleaug( ss, Qdt1H)-Ct 
abhleaugzs,@5i<t1$)) 
14974 IF =s<A THEN 22s= 
O14824 IF ssit-1 THEN ss=it-1 
14494 HEAT i 
e14146 IF tableau se, Aiï<t1$ THEN 
14114 RETURN 






Module 4.4.7 : Insertion d’une 
donnée 
Il s'agit d'un module d'insertion standard. 


MODULE 4.4.7 : LIGNES 15000-15110 


Gin RENM HEEXKEEKXEEELELAEEX 
1SAa14 RENM Xlnsérer l'entréexk 
15024 REM KXKXXKEXEXAXEXENAX 
15438 FOR isit TO sa+i STEP -1 
e 15949 tableaus$c i,Gistableausg<i-1,45ù 
15954 tableau$c i,15=tahleauss i-1,15 


15664 MEXT i 

15074 tahleaugczs, 

15484 tableau ss. 
15094 it=it+i 

15144 GOSUB 16908 
615114 FETLIRH 


Module 4.4.8 : Suivi des types 


Nous avons entré le module permettant d'enregistrer des types. 
Mais il faut aussi que le programme puisse connaître le nombre 
de chaque type se trouvant dans le fichier, et où commence 
chaque groupe de types. 
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L'enregistrement du nombre de chacun des types est effectué 
par le module d'entrée qui ajoute simplement 1 à l'élément 
concerné dans le tableau NTYPE. Ce module est appelé pour 
chaque nouvelle entrée ou suppression. Il a pour but d'enregis- 
trer de l’autre côté de NTYPE les totaux cumulés des types de 
0 à 9. Le cas échéant, les réponses seront classées dans l'ordre 
des types à l’intérieur du fichier principal; ainsi, si nous con- 
naissons le total des données appartenant aux types de 0 à 2, 
nous savons où commencent les données du groupe 3. 


MODULE 4.4.8 : LIGNES 16000-16080 


RER ÉEÉERÉEÉEHAEELNLE 
REM %Mise À jour* 
REM HÉKEELELAEELE 
suzA 
e FOR is TO 3 
16050 ntuPer l,iizen 
16964 suseutntape(@, i) 
@ 15070 NEXT i 
CASA FETURH 










Module 4.4.9 : Entrée d’un nouvel 
article 


Il s’agit d'un module simple qui vous permet d'entrer un nou- 
veau couple question/réponse, et de lui associer un type. 


MODULE 4.4.9 : LIGNES 13000-13300 


REM HÉÉRER RENÉE 
EE tHouvelles donnéez£t 
REM HÉKÉRERE EEE EEE EEE 
MHILE 1 

CLS 

PRINT "Houvelles données:":PRIHT  @ 
IF it=S@9 THEH LET x$="ÉHRéERENEE P 
LE PLACE #XÉKEEEKEE": COSUE 2S@G4:RETU @ 





PRINT'"'Entrer la donnée spécifiée" 
à PRINT": F' Four revenir au menu Pri 


al " e 
à FR INT nom$e & 5; a 
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D13118 INPUT ":";ti$ > 
13124 IF tig="c" THEH RETURN 

12124 PRINT non$ 1 3 e 
13149 INPUT "i"ites 

Qi IF téé="s" THEN RETUEH e 
13169 PRINT:PRINT "Types: ":PRINT 

@ei:ifé FÜR if TO ntypes-1 e 
15186 PRINT i+1;"5 "iqtupec ii 

e1:12% HEXT i e 
13288 PRINT:IHEUT "Entrer le numéro du + 
Pets 

O1 tata 0 
13224 IF &3<G OR tärntupes THEN t3=û 

S1:224 FRINT:IHPUT "Est-ce correct Corn" @ 
:4%$ 

@1:244 UHILE LOMERSE a$="0" e 
15 2sf ntaret tits itentupel G, ++] 
12268 +t1$=MIDbé STRSE LE +t1$,20 e 
13279 GOSUE 144a@ 
15284 GOSUE 1544@ 

O132 Sù q$="" : MEHD e 
13344 


ue Fe 


ai Li 


WEHC 





Commentaires 


Ligne 13250 : L'élément du tableau NTYPE représentant le 
type spécifié pour la question/réponse en cours est augmenté 
de 1. C'est ce tableau, nous l'avons vu, qui est élaboré par le 
module de mise à jour lorsqu'il enregistre où commence cha- 
que groupe dans le tableau. 


Test 


À ce stade, vous pouvez exécuter le programme, spécifier les 
types puis sélectionner l'option 1 du menu pour commencer à 
entrer des questions et des réponses. Pour vérifier que les don- 
nées sont correctement reçues, entrez ce qui suit : 


QUESTION REPONSE TYPE 
Q111 A111 3 
Q222 A222 2 
Q333 A333 1 


puis sortez du programme. Ensuite tapez : 


FOR I1=0 TO 2 :FOR J=0 TO 1 :PRINT TABLEAUS(I,J) :NEXT 
J :NEXT I[ENTER] 
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Vous devez obtenir : 


0A333 
Q333 
1A222 
Q222 
2A333 
Q111 


Module 4.4.10 : Stockage des 
données 


À présent que nous pouvons entrer des données, nous allons 
passer aux deux modules standard permettant de stocker ces 
données et de les lire. 


MODULE 4.4.10 : LIGNES 22000-23220 








. 
ES 





FÜR i1=f TO ntaPpezs-1 
PRIHT #4,q9tupehc ii 
HEAT i 

CLOSEOUT 

FETLIEH 


1 REM HERÉRRRMEE EEE EEE 
1 FEM lecture sur cassette 


RE HAE LEEEEEE EEE LAEEEX 

CLS 

FRINT "charaer les données": FEIHT 
IHPUT “"Hom du fichier: 


A REM HXELELELREEREEEÉEELEEEEELELE e 
A REM #5 aarde sur cassette#k 
A REM HAE ELELELREEEÉRERHEEREEE e 
34 CLS 
Gd44 PRINT "Sauvegarder les donnéesg:":F e 
2 INPUT "Hom du fichier:".fichiers 
2GE4 OPEHOUT fichiers e 
Era PRINT #3,it 
SAS4 PRIHT #3, ntupes e 
GA FOR if TO 1 
4 PRINT #3, nome ii @ 
G FOR jeû TO ntaPes-] 
4 FRIHT HS, ntuper 1, 0 æ 
A MEAT 
A FOR ji=f TO it-1 
G PRINT #9, tableaug ji 6 
A HEXT ji 
HEHXT i e 
8 
e 
& 
8e 
e 


"fichier$ 
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SA OFENIH fichiers 

Fa INPUT #9, it e 

S4 INPUT #S,ntapes 

Gg FOR izf TO Î e 

GA IHPUT #9 uomSe i 

14 FOR jief T0 ntaPes-1 

24 INPUT #9, ntupec ii? e 

Sa HEËT à 

4 FOR i=ä TO it-1 e 

SA IHPUT #3 tableau ji 

ER HEËT @ 
174 HEXT ji 

4 FÜR if TO ntyPes-1 e 
194 INPUT HA, qtapege ii 

A HEXT i e 
21 CLOSEIH 
Lez RETUREH : 





Module 4.4.11 : Recherche par 
l'utilisateur 


Il s'agit d’un simple module de recherche qui vous permet de 
faire une recherche vers l'avant et vers l'arrière dans le fichier 
principal, d'afficher des données et, après l'entrée du module 
suivant, de les supprimer. 


MODULE 4.4.11 : LIGNES 20000-20220 








@sûung RENM HELEELALEEE 
sagit FEM #Recherchek 
e LANG RENM XHEEEEREEEX 
LAASA 25<û 
e saga tibz"" MHILE L1$<2"S" AND it56 
caQsg CLS: PRINT RÉ eUe AUDE 
FAN FRINT "Huméro de donnée: "isest+i 
Scaire PRINT momgé Gi": "MID Stableaust : 
ARTE 
QEAASS FEINT nom$ce 1ii"i"itableautiss. {à 
LAG9G PRINT "Tape: ";qtupedé VALÉLEFTS tab 
leau$( ss, 4,121 e 
AGE FRINT:FEINT "Commandes disFonibles 
e: "PRINT e 
ÉA11A FEN S:PRINT "ENTER": :PEH 1:FRINT " 


Four. 14 donnée suivante" 
O:ù129 PRINT "‘#' suivi d'un nombre Four @ 
déplacer le FPointeur" 
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64124 PRINT "‘d' pour effacer la donnée" @ 
£g144 PRINT "‘£$* pour quitter" 

OE£A159 FEIHT: INPUT "Que voulez-vous":ti$ @ 
26166 IF ti$g="" THEH ti$="#1" 

ecfiré IF LONERSCtiS$= "4" THEN GOSUE 2108 


J 


= 
2%, 


IF LEFT$&CEL1$,12="H4" THEN s22ss+VAL 


28186 

Oénicsctis,23) 0 
2A194 IF ssrit-i THEH se=it-1 

Orxan IF set THEM se=û e 
24214 WEHC 

Gaza FETURH e 





Test 


Exécutez le programme et lisez les données stockées sur cas- 
sette. Avec l'option 3 du menu, vous pouvez consulter les don- 
nées vers l'avant et vers l'arrière. 


Module 4.4.12 : Suppression d’une 
donnée 


Il s’agit d'un module de suppression standard. 


MODULE 4.4.12 : LIGNES 21000-21100 


O2idau REM #EHEHÉTELEAEX 
21914 REM *XSuPFressionx 
a Zig2n REM #XKXEXAEEXEEX 
21434 ntaPech, VALCLEFTSé tableaug(ss,gi,l 
e : : ci Let 1, VALSLEFTSC tabhleaudss.@,195 
UV 
Es FOR izss TO it-2 





e 21054 tableau$s i,45=tahleausé i+1,40 
21 AE talhleaugé i,10ztableaugéi+1.1 
21474 HEXT i 
21484 itzit-1 
1494 GOSUE 16444 
21194 RETURH 


Test 


Suivez la même procédure qu’au module précédent, mais frap- 
pez ’S’ en face de l’une des données. Vous constaterez qu'elle 
a été supprimée. 
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Module 4.4.13 : Définition des 
questions 


Nous en arrivons au module qui constitue l'originalité de Mul- 
tiQ, en définissant les tests à choix multiples. Ce module traite 
la partie visible de l'opération : l'affichage des questions et des 
réponses possibles et le choix d'une réponse correcte par l’uti- 
lisateur. 


MODULE 4.4.13 : LIGNES 17000-17430 


O17A0û REM KHEHEXEEEXE 
17@418 REM XGuestionsxk 
@17020 REM KXKX4KEKERX 





17939 CLS 
e!:94 PRINT "Guestions :":PRINT e 
17454 PRINT " Voulez-vous Que le 


3 réPonses ne Proviennent que"; 

@ 17969 PRINT "d’un tyPe (difficile) où de @ 
l'ensemble" 

617974 PRINT "stock Cfacile)?" 8 
179089 PRINT:PRINT "15 Un tuPe seulement" 


17298 PRINT "ÉRRk EEE" 
17300 FOR i=6@9 TO 198 STEP -190 
67314 SOUND 1,i,:19 


@17990 PRINT "25 Tous les types" e 
17104 PRINT:INPUT "Lequel:".r9q 

ei:119 IF rq<1 OR r92Z THEN raz=2 e 
17124 4$="":MUHILE LOWERSS 9$ <>" n" 
171358 GOSUB 18408 

Oi7140 CLS 0 
17154 PRINT nom$c13;":";tableaus( Qué Pos 

8,1) @ 
17169 PRINT:PRINT nom$g@gi;":" 
@17179 FOR i=9 TO 4 e 
17189 PRINT i+1:")ù ";:MIDS$CtableauSc que ji 2 
e@e:4::2) e 
17190 NEXT i 

e22% ra=g:WHILE rai OUR ra35 e 
17214 PRINT:INPUT "Quelle est la bonne r 
éPonse C1-52";5ra 

017224 WEND e 
17234 WHILE ra-1=4Pos 

81724G PEN 3:PRINT e 
17254 PRINT "XEKXXXKEXXX" 

@17264 PRINT "# x" & 
1727@ PRINT "# JUSTE! *" 

e!72859 PRINT "# x" e 

e 
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1736& NEXT i 
617330 PEN 1 e 
17344 juste=juste+i 
617354 ra=û:WEND e 
17369 WHILE ra-1<>qpas AND rad 
@i7376 PRINT:PRINT "Désolé, c’est faux. L @ 
a bonne réPonse" 
1738Q PRINT ‘était “":MIDSCtableau$( main 
8 ,9,2»;"." e 
17394 raz=ûQ:WEND 
017409 total=total+l e 
hu PRINT: INPUT “Autre Question Co/n2" 
:94$ 
17424 WENC 
@1743A RETURN 





Commentaires 


Lignes 17040-17100 : Nous avons déjà vu que MuitiQ permet 
deux niveaux de tests. Ces lignes vous permettent de spécifier 
si les réponses possibles doivent être extraites du fichier tout 
entier ou d'un type de réponse particulier. 


Lignes 17150-17190 : La question et les cinq réponses possi- 
bles, qui seront sélectionnées par le module suivant, sont affi- 
chées. Les positions des cinq réponses possibles sont conte- 
nues dans le tableau QU et la position de la réponse correcte 
dans QU est enregistrée par la variable QPOS. 


Lignes 17230-17350 : Si la réponse choisie, telle qu'elle est 
représentée par la variable RA, correspond à la position de la 
réponse correcte (QPOS), le mot ‘JUSTE’ est affiché et un bref 
signal sonore retentit. La variable JUSTE qui enregistre le 
nombre de réponses justes est augmentée de 1. En cas de mau- 
vaise réponse, vous en êtes informé et la bonne réponse vous 
est indiquée. 


Ligne 17400 : TOTAL, la variable qui enregistre le nombre 
total de questions posées, est augmentée de 1. 


Module 4.4.14 : Sélection des 
questions aléatoires 


Nous pouvons donc afficher les questions et les réponses. Il 
nous reste à traiter le sujet bien plus complexe de la sélection 
de ces questions et réponses. Avant les commentaires détaillés, 
examinons le principe général de la méthode utilisée. 
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Nous voulons sélectionner une question et sa réponse correcte 
correspondante, puis remplir le tableau QU avec cinq nombres, 
représentant les positions dans le fichier principal des cinq 
réponses potentielles, y compris la réponse correcte. La ques- 
tion et la réponse principales sont d’abord choisies au hasard 
dans la totalité du fichier. Le numéro de la question dans 
le tableau principal est placé dans une position aléatoire du 
tableau QU. 


Après quoi, il reste à trouver quatre autres réponses. Selon que 
nous voulons un test facile ou difficile, nous sélectionnons les 
quatre réponses soit à partir de la totalité du fichier principal, 
soit à partir de la section contenant des réponses de même type 
que la réponse principale. Les quatre réponses sont choisies au 
hasard dans la section appropriée du fichier, avec deux vérifi- 
cations : que la même réponse ne figure pas deux fois et 
qu'il n'y a pas de réponse paraissant identique à la réponse cor- 
recte. 


MODULE 4.4.14 : LIGNES 18000-18210 


12200 REM EXKKKAKKKKETKEXEEKEXE 
18914 REM XSélection Aléatoirexk 
e 15229 REM XXKAXETENEREREEEEEEXE 
18939 maina=INT(RNDX( it 22 
e ne ctupezVALéLEFTS tableau$ main. 
122 
16959 ri=zntupeli,ctyPpe) 
2060 ré=ntupe( A, ctype à 
1807@ IF r2<S OR r3=2 THEN risdir£gsit 
612458 1Pos=INTSRNDXS 2 
18990 FOR i=A TO 4 
618198 duff=mainaq 
18118 duPp=l:NHILE durzi AND i<>4Pos 
e 18124 dup=f 
12134 duff=r 1+INTCRNDEr2 5 
18148 IF MIDS tableaus$c duff.n,22=MID$Ct 
ableau$main1,@2,22 THEN duPpzl 
16150 FOR i=g TO i-1 
612169 IF MIDStableaus$(duff.@),23=MIDbc 
ableau$équ(ji2.92,22 THEN dupzi 
612170 NEXT j 
18184 HEMD 
18194 Qué id=duff 
18200 NEXT i 
a 15219 RETURN 





D] 
+ 


Cou 
® ® ® ® 8 ® ® ® ® » » + 
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Commentaires 


Lignes 18030-18040 : La question et la réponse principales 
sont sélectionnées et leur position est stockée dans MAINQ. Le 
type de réponse est enregistré par la variable CTYPE. 


Lignes 18050-18070 : Les deux variables R1 et R2 enregistrent 
le début et la fin de la partie du fichier d'où proviennent les 
questions. Si l'utilisateur a spécifié le type de test le plus dif- 
ficile, R1 et R2 sont définies de façon à pointer sur le début et 
sur la fin du groupe de questions de même type que la question 
principale. S'il y a moins de cinq questions dans ce groupe, de 
sorte qu'il serait impossible de choisir cinq réponses différen- 
tes, ou si l'utilisateur a spécifié la forme de test la plus facile, 
R1 et R2 sont définies pour pointer sur le début du fichier. 
Si vous spécifiez la forme de test la plus difficile et si le pro- 
gramme ne la fournit pas, la raison probable est qu'il n’y a pas 
assez de réponses du même type que la question principale. 


Ligne 18080 : QPOS est la position de la réponse correcte dans 
le tableau de cinq réponses possibles. 


Lignes 18090-18200 : Cette boucle choisit les quatre autres 
réponses dans la partie du fichier indiquée par R1 et R2, cha- 
cune stockée temporairement dans la variable DUFF. Dans la 
boucle, des vérifications comparent la nouvelle réponse à la 
réponse correcte, qui peut se trouver n'importe où dans QU, et 
aux réponses placées précédemment dans QU. Notez qu'il ne 
suffit pas de contrôler que la même réponse du fichier prin- 
cipal n'est pas en double. Deux questions provenant de par- 
ties différentes du fichier principal peuvent fort bien avoir des 
réponses identiques. A la fin de la boucle, QU contient les posi- 
tions des cinq réponses différentes dans le fichier principal. 


Test 


Le seul test efficace de ces modules exige une quantité suffi- 
sante de données pour permettre des tests significatifs. Comme 
premier test rapide, vous pourriez enregistrer deux types de 
questions : TYPE1, TYPE2, … TYPE 6. Puis entrer une série de 
questions sous la forme Q1, Q2, … Q10 avec des réponses Al, 
A2, … A10. Le type des cinq premières questions devrait être 
TYPE1, les questions restantes ayant le TYPE2, … TYPE6. Vous 
avez ainsi un jeu de questions capables de produire les formes 
les plus difficiles de test et cinq autres avec une seule ques- 
tion pour chacune. 
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Appelez le générateur de questions aléatoires et spécifiez la 
forme de test la plus difficile. Vous devez pouvoir continuer à 
répondre aux questions, tout en étant correctement informé de 
l'exactitude ou de l'inexactitude de vos réponses. Lorsqu'une 
question est choisie parmi les cinq premières, les cinq répon- 
ses doivent être comprises entre 1 et 5: Lorsque d'autres ques- 
tions principales sont choisies, les réponses doivent provenir 
du fichier global de 10 questions. 


Module 4.4.15 : Calcul du résultat 


Pour finir, nous voulons que le programme puisse donner la 
note ou le résultat des tests. C'est moins facile qu'il n'y paraît, 
car il ne suffit pas de prendre le nombre de bonnes réponses 
et d'en tirer un pourcentage du total. 


Si l'utilisateur spécifie simplement la première réponse de cha- 
que test, ce sera en moyenne la bonne réponse pour une ques- 
tion sur cinq. Donc un résultat de 20 % peut fort bien indiquer 
que l'utilisateur n'a pas la moindre idée de la réponse correcte. 
La solution consiste à soustraire un cinquième des questions 
totales (le nombre que l'on peut attribuer à la chance pure) des 
réponses justes, et à exprimer ce nombre en pourcentage des 
quatre cinquièmes du nombre total de questions. 


MODULE 4.4.15 : LIGNES 19000-19110 


O 1:00 REM XXKXKEAAAX 
19919 REM *XRésultat* 
e 12020 REM XXK#KKAXEX 
19939 CLS 
ae 1944G PRINT "Résultat :":PRINT 
19959 IF total=A THEN x$="X#kHKEXKXX PHS 
ENCORE DE RESULTAT XK#K#K#H#k4#k" : GOSUIE 2504 
O G:RETURN e 
19664 PRINT "Total des réPonses:";itotal 





@ 12979 PRINT "Réponses correctes:";ijuste @ 
1998Q PRINT:PRINT "Résultat:";INTCÉ juste 
e-total/53/Ctotal#8.82#196+9,53;"%" 
19999 PRINT : INPUT "Voulez-vous repartir 
à zéro Co/n)";4$ e 
1910@ IF LOUWERS 9$5="a" THEN total=ÿ: jus 


te=0 
019119 RETURN e 
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Test 


Exécutez à nouveau le test du module précédent. Après avoir 
répondu à quelques questions, revenez au menu principal et 
appelez le module de résultat. Vous devriez constater que le 
résultat donné est assez logique, même s’il n’est pas facile de 
faire la relation exacte avec le nombre de bonnes réponses. 
Vous devez également pouvoir ramener le résultat à zéro et 
recommencer un nouveau test. 


Si ce test donne satisfaction, le programme est opérationnel. 


de) 


Vos Finances 





Dans ce dernier chapitre, nous allons nous intéresser à un 
aspect important non encore abordé : le 464 et l'argent. Un 
sujet qu'il serait dommage d'ignorer car les micro-ordinateurs 
traitent remarquablement les problèmes financiers. Les som- 
mes ainsi traitées sont rarement importantes, sinon ce ne 
serait pas l'affaire d'un micro peu coûteux, et les calculs sont 
généralement simples : additions et soustractions pour enregis- 
trer les entrées et les sorties d'argent. 


Mais, direz-vous, le cerveau humain peut fort bien faire cela. 
C'est vrai, mais le micro-ordinateur présente l'avantage de 
stocker l'information, de vous la fournir rapidement et de la 
présenter sous une forme immédiatement compréhensible. Les 
deux programmes de ce chapitre donnent un bon exemple de 
cette capacité ; le premier vous permet de suivre votre compte 
en banque et le second de tenir une comptabilité simple. 


Voici les deux programmes de ce chapitre : 


BANQUIER : Permet d'enregistrer les mouvements d'argent de 
votre compte en banque. 


COMPTABLE : Tient une comptabilité simple sous une forme 
classique. 
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PROGRAMME 5.1 : BANQUIER 


Fonction du programme 


Ce programme vous permet une mise à jour claire et continue 
de votre compte en banque, les références des mouvements, 
leur date et leur montant. Vous pouvez spécifier non seulement 
des opérations simples, mais des dépenses ou des recettes répé- 
titives, avec ou sans périodicité régulière. La période considé- 
rée par le programme est une année normale. 


JANVIER 


® 2 ALIMENTATION 


4 ESSENCE 234.50- 
@ 15 SALAIRE 5678, 99 
17 TELEPHONE 511.10- 
@ 19 EMPRUNT 2349. 08- 
21 GARAGE 123. 40- 
e 26 ELECTRICITE 345,64- 1667.60 





Figure 5.1 : Exemple d'écran de Banquier. 


Module 5.1.1 : Initialisation 
Il s’agit d'un module d'initialisation standard. 


MODULE 5.1.1 : LIGNES 10000-10160 


@12000 REM HÉREREREIIENEE 
19914 REM XInitialisationx 
@l2028 REM KEKEKEREEEHEEEEE 
1993@ MODE 1 
@ 12248 UHILE in=2 
14954 in=1:cr$=CHRS 13): 
19968 DIM a$C99,12,a(29, 1):ac 0,1 )=999 
@087à RESTORE 
14888 DIM mogé 11) 
614998 FOR i=@ TO 11 
1A14G REC mo$c i à 





® ® 2 2 © 
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@inñiin NEXT i e 
14124 DATA Janvier, Février Mars, Avril, Ma 
ei:uin } e 
14134 DATA Juillet, Aout,Sertembre.,{Uctobr 

e. Novembre, l'écembre 


Ojai4a WEND æ 
19159 INK G:Z4:INK 1:3:IMNK 2,12 
@iai6g WINDOW #1,1:49,16,25 po] 





Commentaires 


Ligne 10060 : Le tableau A$ permet de stocker les noms des 
mouvements et une chaîne spéciale, que nous expliquerons 
plus tard, qui enregistre les mois où le mouvement particulier 
a eu lieu. Le tableau numérique A contient le montant de cha- 
que mouvement et le jour du mois où il a lieu. Une définition 
de A(0,1) à 999, soit un quantième impossible pour le mois, 
permettra à la routine de tri ultérieure, de détecter la fin 
du fichier. 


Lignes 10080-10130 : Cette boucle lit les noms et les mois de 
l’année dans le tableau MOf$. 


Module 5.1.2 : Le menu de 
programme 


C'est un module de menu standard, qui de plus vous informe 
si le programme doit fournir des résultats avant même d’avoir 
entré des données. 


MODULE 5.1.2 : LIGNES 11000-11210 


@1190û REM XKKEEY & 
11914 REM XMenux 
11024 REM XKKXEKX e 
11834 CLS:CLS #1:PEN 2:PRINT TAEX 162; "BR 
NOUIER" ; TAB 16 ï; "æm==cm=st: PEN 1:WINDOU 
0,,4n,4,23 e 
11949 z=G:MHILE z<6:CLS 
11458 PRINT "Commandes disponibles:":PRI @ 
NT 





Q11aéa FRINT "1: Houveaux mouvements" e 
11474 PRINT "25 Consulter/SuPpPprimer les 
@ncuvements" e 


11A6A PRINT "35 Afficher le relevé" 
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e11258 PRINT "4 Sauveaarder le fichier" e 
11149 FRINT "S2 CharSer le fichier" 
11119 PRINT "65 Fin“ 

eiiiza PRINT :INPUT "Que voulez-vous :",2z e 
11139 WHILE Pa=A AND <z=2 OR z=3 OR z=4) 

811146 PRINT :PRINT:PRIHT" XXXKXX PAS ENC ® 
ORE LC'E DONNEES *XX%XXX*" :SOUND 1.1099,19a:F 

@ÙR i=1 TO 1SGA:NEXT i e 
11154 z=9 

e!1159 LENC e 
1117Q ON z GOSUB 12404, 15049, 14A4n.154Qn 
, 164Ga 

1188 WEND 0 
11194 CLS 


911200 LOCATE 11:11:PRINT "FERME POUR AFF ® 
H “ 5 ds 
11:14 ENC e 





Module 5.1.3 : Entrée de nouveaux 
articles 


Ce module d'entrée est plus complexe que les précédents, tout 
simplement parce qu'il s’agit d'entrées plus complexes. Pour 
chaque article enregistré, il faut connaître cinq éléments : si le 
mouvement est un crédit ou un débit (une recette ou un paie- 
ment), le nom du mouvement, le montant, les mois où ce mou- 
vement doit avoir lieu et le jour du mois où il est effectué. 


MODULE 5.1.3 : LIGNES 12000-12400 


@ 12404 REM XKEXAKERERETEEEEERAEEEEAENE ae 
12014 REM #Entrer nouveaux articles* 

e 12929 REM KAKKEKELEXKEEEERELRELREXXELAX e 
"12438 CLS 

e 12948 PRINT "Nouveaux articles :":PRINT e 

12959 PRINT "1 Crédit'":PRINT "22 Débit" 
12969 PRINT:INPUT "Lequel voulez-vous :"; 

eg: cd=cd-1 e 
12674 9q$="":MHILE 9$="" OR LEN9#$22>18:FR 

@ INT:PRINT "Nom du mouvement (max, 18 car @ 
s)": INPUT ":",q$:HEND 

æ 12959 PRINT:INPUT "Montant :",9 e 
12094 en=1i 

e1214@ WHILE en FN 





Vos finances 219 


T'12114 PRINT:INPUT "Mois Ce.a.fif4g7igii" | 
«TÉ: PRINT 
® 2124 en=Q:FOR i=1 TO LENCr$> STEP 2 8 
12190 m=VALCMIDSCrS, 1:22 3-1 
12144 IF m<& OR m>i1 THEN PRINT:PRINT " @ 
KEXKX MOIS ENTRE INCORRECT XKXK#X" : SÛLIH 
OC 1.194, 194:enz1i:i=LENCr$):FOR izi TO 1 @ 
SAG:NEXT ji 
12158 IF ens@ THEN PRINT mom); "/"; e 
12164 HEXT i:PEINT:PRINT 
e!2i75 HENG 
12184 INPUT "Jour du mouvement :",zs 
e°1* PRINT:IHPUT "Est-ce correct Con" 
it$ 
12248 IF LOWERS( TS )C>"o" THEN RETURN 
@1:219 Pa=Pa+l 
122eg i=Ppa-i 
@12239 UHILE s<a<ABSCj2,1) AND j>=4 
12244 FOR k=G TO 1 
e 12258 a$c j+1,kza$é j,k5 
12269 aCi+i,kæat ik 
12274 NEXT k 
02280 i=i-1 
12294 WEND 
O12304 j=i+1 
12314 a$c j,1="anDan0GAgAaaGA" 
@1:324 FOR izi TO LENCr$) STEF 2 
12334 m=VALCMIDSC Fr, 1,20) 
12340 a$c ji, 12=LEFTSC age j,1),m-124+"1"4RIG @ 
HTSC age j,12,12-mà 
e1255% NEXT i 


D 2 9 2 9 9 9 © 


12364 a$C j,45=9$ e 
12374 ac j,@)=Q 
12384 ai, 1d=s 6e 
12394 IF cd=l THEN ai, @d=-at i, 8) 

@ 12499 RETURN e 





Commentaires 


Lignes 12040-12060 : Le programme doit savoir clairement si 
le mouvement est un paiement (débit) ou une recette (crédit). 
Ce point est enregistré dans la variable CD (Crédit/Débit). 


Lignes 12090-12170 : Les mois où le mouvement doit avoir 
lieu sont entrés sous la forme d'une chaîne de nombres de 
deux chiffres, sans séparation. Donc, si un mouvement doit 
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être effectué en février, mai, août et novembre, vous auriez 
‘02050811’ représentant les mois 2, 5, 8 et 11. La boucle FOR 
commençant à la ligne 12120 vérifie que la chaîne ne com- 
prend que des valeurs de mois réalistes et vous signale toute 
erreur éventuelle. A titre de vérification supplémentaire, la 
boucle affiche les noms des mois spécifiés tels qu'ils sont enre- 
gistrés dans MO$, afin que vous puissiez contrôler qu'il s’agit 
bien des mois prévus. La routine de la ligne 12090 se répète si 
un mois erroné a été entré, puisque la boucle WHILE dépend 
de la valeur de EN (Error Number + Numéro d'erreur) qui con- 
tient une valeur en cas d'entrée incorrecte. Notez la fenêtre 
utilisée pour l'entrée concernant les mois, qui permet d'effacer 
les lignes particulières concernées, sans perdre de vue ce qui 
a déjà été entré. 


Ligne 12210 : A ce stade, l'information entrée a été vérifiée et 
confirmée par l'utilisateur, donc la variable qui enregistre le 
nombre de données dans le fichier, PA, est augmentée de 1. 


Lignes 12230-12300 : Cette boucle permet de placer la nou- 
velle donnée dans le fichier, dans l’ordre de jour correct. Plu- 
tôt que de faire plusieurs copies des mouvements qui se répè- 
tent pour plus d’un mois, la méthode retenue consiste à stocker 
toutes les entrées une fois seulement, dans l'ordre des jours. 
Lorsqu'un relevé pour un mois particulier est demandé, un 
autre segment du programme explore toutes les entrées, à la 
recherche de celles qui coîncident avec le mois spécifié ou qui 
le précèdent, et qui sont donc à prendre en compte pour le cal- 
cul du solde. 


A l'insertion de la nouvelle donnée, la boucle des lignes 12230 
à 12290 commence avec la valeur de jour la plus haute (soit 
le nombre fictif 999 inséré dans le module d'initialisation) et 
redescend jusqu'à ce qu’elle trouve un mouvement avec une 
valeur de jour inférieure à la valeur deS, la valeur du jour de 
l'article que vous venez d'entrer. Si elle ne trouve pas la posi- 
tion correcte, elle déplace l'article qu'elle vient d'examiner 
d'une position vers le haut. Autrement dit, pendant l’explora- 
tion du fichier, elle déplace une ligne de réserve. Dès que la 
position correcte est trouvée, la ligne de réserve est déjà en 
bonne position. Pour finir, la valeur de J, qui enregistre la posi- 
tion de la première entrée trouvée avec un jour de mouvement 
inférieur à S, est augmentée de 1 pour pointer sur la ligne 
de réserve. 


Lignes 12310-12350 : La tâche suivante consiste à traduire la 
liste des mois, entrée sous une forme facilement analysable 
par la suite du programme. La méthode retenue repose sur une 
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chaîne de 12 zéros, sur l'enregistrement des mois auxquels le 
mouvement ne doit pas être effectué, puis sur l'utilisation 
d’une boucle pour remplacer un zéro par un, pour tous les mois 
où le mouvement doit avoir lieu. Donc, dans le cas de notre 
exemple trimestriel précédent, nous obtiendrions la chaîne 
"010010010010". 


Lignes 12360-12390 : La nouvelle information est placée dans 
les tableaux principaux. Si la variable CD indique que le mou- 
vement est un débit, le montant est multiplié par moins un 
pour le rendre négatif. 


Test 
Exécutez le programme et choisissez l'option 1 du menu. 
Entrez un nouvel article de la façon suivante : 


Débit (option 2) 
Nom : TEST 
Montant : 100 
Mois : 02050811 
Jour : 15 


Après un certain délai, le menu principal réapparaît. Arrêtez le 
programme avec l'option 5. Puis entrez : 


PRINT A$(0,0),A$(0,1),A(0,0),A(0,1) 
Vous devez obtenir : 
TEST 010010010010 -100 15 


Module 5.1.4 : Affichage du relevé 


Bien qu'il reste encore des modules à venir, la tâche finale 
de la partie principale du programme consiste à produire un 
relevé pour l’un des mois de l’année, à partir des articles entrés 
au module précédent. Le relevé comporte un solde antérieur 
des mois précédents et affiche en détail tous les mouve- 
ments du mois, ainsi que le nouveau solde après chaque mou- 


vement. 


MODULE 5.1.4 : LIGNES 14000-14290 





@lddan FEM #XXEKXEX La 
14014 REM ffRelevé# 
e 14228 REM XXXKXXKEX æ 


14934 somme=f 
a 14844 CLS:PRINT "Relevé: ":PRINT a 
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14959 A=G:HHILE 951 OR 9>12 

e 14469 PRINT: INPUT “Numéro du mois du rel e 
evé 6i-123:",9 

e!+275 WENC: e 
14Q8@ FOR izi TO 3-1 
14490 FOR izfA TO Ppa-1 

Oi41a@ IF MID a$i,12:i.1ï="1" THEN somm @ 
ezsonme+as if 

614114 NEXT i e 
14124 HEXT ji 

@ 14154 PRINT: INPUT "Envoyer le relevé à 1 
“imprimante Co-ni":pr$:che@:liF LOUERSCPS 
=z"a" THEN ch=ë e 
14148 CLS:PRINT #ch.TAE € 2A-LENC mage q-1 

e 22 13 UPPERSE mo$é 9-1 32: PRINT #ch. STRINGSS 
39 n LEDs |] 3 
14150 FRINT #ch, "JOUR & DETAILS"; TRES: 

@ ;, "ARTICLE SOLDE" 
14164 PRIHT #ch, STRINGSE 59, "00 

14174 FRINT #ch," Solide à nouveau"; :FE @ 
N 2-SGHé somme+@. 4@1 2: PRINT #ch,TAB C32 3; 

@ 5 ING HHEN. #4"; somme e 
14189 FOR i=@ TO Pa-1 
14199 deB:WHILE MIDSCaS$ci,12,4,12="1" AN 

86 Ja: d=1 e 
14248 FEN 1:PRINT #ch,LISING "## &";ali,1 « 
ia$ci. A: 
14214 PEN Z-SGN( ac i,@+6. @6G123:PRIMT #ch; 

OTAË LES USING "####. ##-";:aci.0); 
14224 sommezsommetac 1,4 

@14+259 PEN 2-S0NCsommet+@. 4812): PRINT #cH,T @ 
AB <SSHUSING "#K##. ##—"; somme 

e 14248 WENC: L e 
14254 HEXT i:PEN 1 
14264 IF ch=S THEN RETLEN 

6 ;427a PRIHT:PRINT “FraPPer une touche Po e 
ur continuer: " 

04289 WHILE IHKETS="":MEND e 
14294 RETURH 





Commentaires 


Ligne 14030 : La variable SOMME contient le solde du compte : 
le solde antérieur et celui consécutif à chaque mouvement. 


Lignes 14080-14120 : À condition qu'il ne s'agisse pas du 
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relevé du premier mois, pour lequel il n’y a pas de solde anté- 
rieur, ces deux boucles explorent la liste complète des mou- 
vements, une fois pour chaque mois qui précède le mois du 
relevé. Ainsi, chaque mouvement est examiné, pour voir s’il 
existe à l’un des mois précédents, auquel cas le montant adé- 
quat est ajouté au contenu de SOMME. Au terme des deux bou- 
cles, SOMME contient le total global de toutes les variations 
de solde depuis le début de l’année. (Pour avoir un solde com- 
plet, y compris les reliquats éventuels du début de l’année, il 
suffit d'entrer le solde à la fin de l’année précédente, sous 
forme d'un crédit, le premier janvier). 


Ligne 14170 : À noter que si le contenu de SOMME est négatif, 
la couleur d'impression devient rouge. Vous retrouverez sou- 
vent cette même technique aux lignes suivantes. Notez égale- 
ment l'utilisation de la commande PRINT USING qui nous per- 
met d'afficher le nombre sous un format standard, pour obtenir 
un relevé bien présenté avec les décimales correctement ali- 
gnées. 


Lignes 14180-14250 : Cette boucle explore la liste complète 
des mouvements, tandis que la boucle des lignes 14190-14240 
ne sélectionne que ceux qui ont un «1» dans la position de la 
chaîne qui enregistre les mois où le mouvement est attendu. 
Si un mouvement doit avoir lieu pendant le mois spécifié pour 
le relevé, la boucle affiche le jour, A(I,1), le nom, A$(I,0), le 
montant, A(I,0), et finalement le solde résultant du mouve- 
ment, obtenu en ajoutant le montant au contenu de SOMME. 
A l'exception du jour, les opérations de débits apparaissent en 
rouge. Les colonnes de l'écran restent cohérentes, malgré la 
longueur variable des nombres, grâce à TAB, qui donne une 
position standard de départ sur l'écran, et à PRINT USING. 


Test 


Entrez les données de test utilisées au module précédent. Lors- 
que le menu principal réapparaît, choisissez l'option 3 pour 
afficher le relevé. 


Commencez par le premier mois et, si vous êtes satisfait, reve- 
nez au menu principal et affichez le relevé du mois suivant. 
Bien sûr, la majorité des relevés seront vierges, puisque la plu- 
. part des mois n'ont pas de mouvement. Toutefois, les mois de 
février, mai, août et novembre ont tous un mouvement qui doit 
être affiché. 
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Module 5.1.5 : Fichiers de données 
Il s'agit d'un module de fichier de données standard. 


MODULE 5.1.5 : LIGNES 15000-16140 





RENM HÉLRELRELHELRELÉLEE EME RENHNE 

FREN Sauvegarde sur cassette“ 

FE ÆXEKEKEEAEEERIEKAXELEERAAEE 

CLS :94$="":MHILE LOHERSC A4$ € "0" 

INPUT “"MHom du fichier à sauveñarde 
158SG PRINT:PRINT "Fichier à sauveoarder 
 . i $ 
PRINT:IHPUT "Est-ce correct Con" 


M + 
M de 


END 

OFEHOUT fig 

PRIHT #9,Pa 

FOR izg TO Fa-i 

PRINT #9a$çi.Miicr$:a$ci.l'icria 
…Ahicr$iat il 

SIA HEST ji 
15139 CLOSEGUT 

@;5i4a FETUFH 
16404 RE HEXKEEEEEEEEELELEREUX 

Oiéain REM fire sur cassette 
Lenea REM ÆXKXKAXKELELERAEEXEX 

@15458 CLS :93$="": MHILE LONERSE 48% "0" 
16444 INPUT "Hom du fichier à lire":fis$ 

æ 1685€ PRINT:PEIHT "fichier à lire ";:f1$ 
16469 PRINT: IHPUT "Est-ce correct L'on" 


ere 9 CE HS 


me 10 Lt C0 
CRE RTE ERTERT) 


-RCR CNE EN © LA 


*) 


En 


® 


WEMD 

OPEHIH fi$ 

INPUT #9,Fa 

FOR i=à T0 Pa-i 

IHPUIT #9, ag$ci.@,a$éi.1.at 1.9, 


4 HEXT i 
154 CLOSEIH 
3 RETURH 


2 2 2 2 2 2 2 2 2 2 2 D 2 D D D 9 
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Module 5.1.6 : Modification et 
suppression de données 


Comme dans Nnombre, c'est un module de modifications par 
l'utilisateur, basé cette fois-ci sur une boucle FOR qui explore 
les articles un à un. 


MODULE 5.1.6 : LIGNES 13000-13250 





1 REM KKKEKEKEEXEXENEXEREXX 
REM #Consulter-/SuPPrimer* 
REM * lez articles * 
BEM ÆXXXKEXEXEEELAXAXELEX 
FOR i=z@ TO pa-1i 
CLS 
PRINT "Mouvement :";ag$ci.ti 
PRINT "Montant: ";acti.@0 
PRINT "Mois:"; 
à FÜR j=i TO 12 
IF MID$c ag i,12,i,12="1" THEH PRINH 
eaT mo$i-1;"/"; 
15144 NEXT j:PRINT 
ei:112 PRINT "our de mouvement:";aci:1) 
13129 FRINT:PRIHT "Commandes disPonibles 
: "PRINT e 
03134 FEN ZS:FRINT "ENTER": :PEN 1:PRINT " 
article suivant" 
@:i514û PRINT “‘5' quitter" e 
13156 PRINT "‘&0* Supprimer l'article" 
q$="":FRINT: INPUT "Lequel voulez-v @ 
.4$ 
A MHILE UFFERSS 94% 2)="ç0" e 
A FOR jzi TO Pa-i 
FOR kzÿ TO 1 
a$6 ik za j+1,ki:af ik mat i+1,k 
1 MEXT k,i 
pa=pa-1:4$="ç" e 
A LWENC 
IF 9$="" THEH HEXT :i e 
264 FRETURH 


DGSE 


Dh pet pd Yi Pet je ht Det nt es De 
da oi 9 C9 Oo a Lg 1) Q 10) 03 


Test 


Après avoir entré et sauvegardé sur cassette certaines données, 
appelez cette option. Vous devez pouvoir consulter les articles 
et les supprimer. Si ces fonctions sont possibles, le programme 
est opérationnel. 
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PROGRAMME 5.2 : COMPTABLE 


Fonction du programme 


Le deuxième programme de ce dernier chapitre est plus com- 
plexe que Banquier. Il a pour fonction de tenir les deux par- 
ties d’un jeu de comptes simples, présentés sous la forme clas- 
sique, avec certains articles autonomes et d’autres clairement 
divisés en groupes représentant différents types de dépen- 
ses. Dans son état actuel, le programme peut traiter des som- 
mes allant jusqu’à F 9999.99. Au-delà, les calculs sont cor- 
rects mais le format des comptes n’est pas bon. S'il vous faut 
des montants ou des totaux égaux ou supérieurs à 10 000, vous 
devrez apporter quelques modifications simples aux comman- 
des PRINT USING et à l’espacement de l'affichage. 


Module 5.2.1 : Initialisation 
I s’agit d'un module d'initialisation standard. 


MODULE 5.2.1 : LIGNES 10000-10080 











eiaana 

18919 
e 12829 

19039 
1984û 
19950 
14866 
6 ;9a7g 

1a08a 
& 


e 


e DEBIT e 
@ FRAIS DE VOITURE é 
REPARATION 
ESSENCE 
O PNEUS e 
e 350.77 ® 
AMSTRAD CPC 464 349. 00 
e e 
MAISON 
e cr 45.87 e 
ELECTRICITE 56, 43 
@ DIVERS 126.75 e 








REM XKKXKKKKAREREXEXE 
REM XInitialisationxk 
REM XXÉKKXEKMEXENERAX 
CLS 

UHILE in=0 
in=1:cr$=CHRSC 13): 
DIM a$C1,99),a(1:99) 
WEND 

MOCE 1 








>» 9 9 9 9 
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229.05 
@ VACANCES 364.76 e 


e TOTAL: 1293.58 





Figure 5.2 : Exemple d'écran de Comptable. 


Commentaires 


Ligne 10060 : Les deux parties des comptes, crédit et débit, 
avec les noms associés à chaque opération, sont stockées des 
deux côtés des tableaux A et A$. Vous pouvez stocker jusqu'à 
100 articles des deux côtés, et même facilement augmenter 
ce nombre. 


Module 5.2.2 : Le menu principal 


Il s'agit d'un module de menu standard qui interdit certaines 
fonctions avant que des données n'aient été entrées. 


MODULE 5.2.2 : LIGNES 11000-11220 


A11008 REM XXKXXKX e 
11914 REM XMenux 

eli22n REM KKKKKX e 
11934 CLS:PEN Z:PRINT TAB 152; "COMPTABLE 
":TAEC1S is "=s=sz==zz=" : PEN 1:WUINDOW 1,48, 

84,25 e 
11Q44 z=G:WHILE z<>6:CLS 
11259 PRINT "Commandes disponibles: ":PRT e 





011969 FRINT "13 Nouveaux Postes" |. 
11974 PRINT "23 Changer/SuPPrimer l'’arti 
ele" e 


11989 PRINT "3 
m11994 PRINT "4 
11109 PRINT "S 
11114 PRINT "65 Fin" 
1124 PRINT: INPUT "Que voulez-vaus:",z  @ 
11128 IF z<4 AMD z>4 THEN GOSUB 12609 
@11140 MHILE cécdi=à AND (z=2 OR z=3 OR z @ 
=4) 

@11154 PRINT:PRINT:PRINT"XKEXX PAS ENCORE @ 
DE DONNEES *Kkk**":SOUND 1,1908.199:FOR 
@i=t TO ISAU:NEXT i e 

1116A z=û 


> Afficher les comptes" 
5 SauveSarder le fichier" e 
à Char3er le fichier" 
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WEHC 
CLS 
OCATE 11:11:PRINT "PROGRAMME TERM @ 


Ê 
END e 





Module 5.2.3 : Crédit ou débit ? 


Contrairement à Banquier, plusieurs parties de ce programme 
doivent savoir s’il s'agit d’un crédit ou d’un débit, aussi la rou- 
tine qui demande cette information se trouve dans un module 
séparé. 


MODULE 5.2.3 : LIGNES 12000-12110 


O12000 REM HXÉHELERELREEEÉERAEEX 
24119 REM XCrédit où Débit7*# 
@1:924 REM XKHXKKKERERERAEEELX 
12434 cd=-1:UHILE cdé>4 AND cds 1 
a12245 CLS 
12954 PRINT "Crédit où Débit:":PRINT 
12464 PRINT "15 Crédit":PRINT "Zi Débit" 





12074 PRINT: IHPUT "Que voulez-vous: ",cd: 
cd=cd-1 
12984 cd$="CREDIT" 
12494 IF cd=1 THEN cd$="CEBIT" 
@izliaa LENC 
12114 FRETURH 


Module 5.2.4 : Le type d'article 


Bien que simpliste, ce module explique pourquoi ce pro- 
gramme est plus long qu’un programme du type Banquier. Ce 
module vous permet de spécifier l’un des trois types auxquels 
appartient un article à entrer. Voici les trois types : 


1) Un article simple : Le nom et le montant de l'article suffi- 
sent. Lors de l'impression du compte, les articles individuels 
apparaîtront à gauche et les montants dans la colonne princi- 
pale de nombres à droite. 
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2) Un poste principal : C'est ce type qui permet de spéci- 
fier des groupes d'articles dans le compte global. Par exemple, 
si vous utilisiez le programme pour tenir une comptabilité 
domestique, vous pourriez choisir VOITURE’ comme poste 
principal d’un groupe d'articles comprenant les pneus, 
l'essence, les réparations, etc... Sur le compte, le nom du poste 
principal Spperniee à gauche, mais il n’y aura pas de montant 
en face lui. 


3) Sous-postes : Comme nous venons de l'indiquer, chaque 
poste principal peut être suivi d’une liste d'articles qui consti- 
tuent un groupe séparé. Dans les comptes, les noms des sous- 
postes apparaîtront sous leur poste principal correspondant, 
décalés vers la droite, et les montants associés à chaque sous- 
poste apparaîtront à gauche de la colonne principale de nom- 
bres. 


MODULE 5.2.4 : LIGNES 13000-13120 


Gal REM KXKKÆKKXKEKEEKEELREXE 
13419 REM #Entrée des Fostes* 
e 12629 REM XKAKEAK RARE IREEELERE 
13839 CLS 
a 15048 PRINT "Nouveaux articles:":PRINT 
13954 PRINT cad$:PRINT 
1:36 PRINT "L'artile est-il:":PRINT 





@1597ÿ PRINT "12 Un simPle article:" 
13089 PRINT "25 Un Poste Principal ou" 
&@ 12099 FRINT "3ù Un sous-Poste" 
15108 PRIHT:INPUT "C@ Pour quitter)";tup 


à ON type GOSUE 14466, 14049, 15044 
RETLIRNH 


Test 


Après avoir entré toutes les parties du programme dans les- 
quelles n'intervient aucun calcul, il vaut mieux exécuter le 
programme et tester rapidement le menu. Si vous spécifiez vou- 
loir entrer un nouvel article, le programme doit vous demander 
si c'est un crédit ou un débit, puis le type; ce sera tout pour 
le moment. La seule autre fonction du menu active à ce stade, 
est l'option 5 permettant d'arrêter le programme. Le menu lui- 
même vous interdira l’accès aux fonctions de modification des 
données ou d'affichage des comptes, puisqu'’aucune donnée n'a 
encore été entrée. 
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Module 5.2.5 : Entrée de simples 
articles et de postes principaux 


Deux modules séparés traitent de l'entrée des sous-postes 
d'une part et des simples articles ou des postes principaux 
d'autre part. Pour bien comprendre la suite du programme, 
observez bien la façon dont les articles sont stockés et les 
caractères indicateurs spéciaux qui enregistrent le type de 
l'article. 


MODULE 5.2.5 : LIGNES 14000-14120 


Oia4nan REM HKKXEÉEÉRMEREREERÉNE 
14914 REM #5imPle article aux 
@ 14415 REM # Poste Principal * 
14024 FEM HXKEXETEÉEEKKEXEEEERAXE 
e 11454 qi: q$ge"tipéent 
1494 PRINT:INPUT "Nom de l'article:",1$ 
e!+1:2 IF tuPezi THEN FRINT:INEUT "Montan 
+ de l'article:",9q 
se FRINT:INPUT "Est-ce correct Co-/n2" 
ir$ 
14474 IF LOWERSCrSI<>"o" THEN PRINT :PRIH 
er" ÆEKXKEKEX NON ENREGISTRE #KKK#KEK" © 
:SOUNC 1,109@,14G:FOR izi TO 1SGQG:NEXT i 
: RETUREH 
14424 IF tupezi THEN q$="%<"+9$ ELSE 9$=" 
e*+15 
14944 a$ccd,c(cdii=1$ 
1414 ac cd,cccdii=q 
Oiaiin cécdo=ctcd)+1 
a !112 RETURN 





Commentaires 


Ligne 14050 : Comme nous l'avons vu dans l'introduction des 
modules précédents, les postes principaux ne sont pas accom- 
pagnés d’un montant, donc cette ligne n'accepte un montant 
que pour de simples articles. 

Ligne 140890 : Il n'y a pas de zone de stockage distincte pour 
les différents types d'articles, mis à part les côtés crédit et débit 
des tableaux. La suite du programme déterminera le type d'arti- 
cle en consultant un caractère indicateur spécial précédant le 
début du nom de l'article. Ce sera "%' pour un simple article 
et ’*’ pour un poste principal. 

Lignes 14090-14120 : Vous connaissez déjà la variable CD qui 
enregistre la nature crédit ou débit d'un article. Ici, CD per- 
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met de décider le côté des tableaux A et A$ où le nouvel arti- 
cle doit être placé. En outre, nous devons garder un enregistre- 
ment du nombre d'articles des côtés crédit et débit, puis- 
qu'ils seront normalement différents. Cela est accompli par le 
tableau C. Le tableau n'a pas été déclaré dans le module d'ini- 
tialisation car il n’aura que deux éléments, CO et C1, corres- 
pondant aux côtés crédit et débit des tableaux principaux. A 
nouveau, la valeur de CD permet d'indiquer lequel des deux 
éléments de C doit être utilisé. À partir de là, nous pouvons 
voir que la référence suivante : 


A (CD,  C(CD)) 
1 2 3 
signifie : 
1) Un élément dans le tableau numérique A. 
2) Du côté indiqué par la valeur de CD, c'est-à-dire crédit 
ou débit. 


3) Le premier élément vide de ce côté, déterminé par ce qui 
est déjà stocké. 


Test 


Exécutez le programme et choisissez l'option des nouvelles 
entrées. Indiquez que vous voulez entrer un poste principal du 
côté crédit, puis entrez TEST PRINCIPAL comme nom d'arti- 
cle; aucune valeur ne doit être demandée. Sélectionnez à nou- 
veau l'option des nouvelles entrées et spécifiez un simple arti- 
cle du côté crédit, avec le nom TEST et la valeur 100. Faites 
exactement la même chose du côté débit des comptes. 


Arrêtez le programme à partir du menu et entrez, en mode 
direct : 

PRINT A(0,10),A(1,0),A$(0,0),A$(1,0)[ENTER] 

Vous devez voir : 

0 0 *EST PRINCIPAL *EST PRINCIPAL 

Puis faites de même pour la ligne 1 des tableaux , par exemple 
A(0,1), etc. Vous devez obtenir : 

100 100 %TEST %TEST 

Pour terminer, affichez la valeur de C(0) et C(1). Tous deux 
doivent être égaux à 2. 


Module 5.2.6 : Entrée d'un sous- 
poste 


L'entrée d’un nouveau sous-poste n'est pas aussi simple que 
celle d'un simple article. Pour chaque nouveau sous-poste 
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entré, il faut vérifier la présence du poste principal correspon- 
dant et placer l'article près de son poste principal au lieu de 
l'ajouter à la fin des articles déjà stockés. 


MODULE 5.2.6 : LIGNES 15000-15210 


els RENM HEEEEEELELEX e 
15019 RENM #XSous Postex 
1SA2A REM HÉROS e 
1542 PRINT: INPUT "Poste principal:".a$ 
1SGd4A q$="4"+aS 
1S4S4 Pl=-1:FOR i=à TO ctcd)-1 e 
BED IF a$cd,id=13$ THEN Pl=i+i 
A MEXT i @ 
ñ 
1 





5 IF Fl=-1 THEH PRIHT:PRINT " XX 
CE POSTE CE CE NOM X###":SOUND 1,1 @ 
AG:FOR i=1 TO 1SGG:NEXT i:RETL IH 


G90 PRIT : IHPUT "Hom du sous-Poste:",q e 


15148 FRINT:IHPUT "Montant :",9q 
CYETET PRINT: INPUT "Est-ce correct cosni" @ 
ir 
615129 IF LOUERS r$Si<>"o" THEN PRINT:PRIN @ 
T" HXKEXLELX NON ENFEGISTRE XKKÉEEEE" 
@:SOUND 1494. 1QG:FO0R i=1 TO 15AG:MHEXT i:R @ 
ETURNH : 
15134 a$="#S"498 e 
15144 FOR i=é(cdi+i TO Pl+i STEP -1 
e15158 2% cd, i=ast ca, 1-1 e 
1S1éR accd, ji isat cd, i-15 
15174 HEXT i 
1S184 adccd,Prl)=9$ L. 
15194 afcd,P12=9 
e 


OiSEQn ce cd ect cd +1 
15214 RETURH 


Commentaires 


Lignes 15030-15050 : Le nom du poste principal concerné est 
demandé et il y a une vérification du contenu du fichier, pour 
voir si le poste existe; si ce n'est pas le cas, un message 
d'erreur apparaît et le programme revient au menu. 


Lignes 15140-15200 : Comme nous l'avons dit, un sous-poste 
doit apparaître dans les comptes principaux comme élément 
d'un groupe apparaissant sous le poste principal correspon- 
dant. La méthode simple pour cela, consiste à le stocker dans 
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le fichier près de son poste principal. La position du premier 
article suivant le poste principal a déjà été trouvée par la bou- 
cle FOR à la ligne 150650; il ne reste donc qu’à déplacer vers 
le haut tous les articles à partir de ce point et à placer le nou- 
vel article au bon endroit du tableau. 


Test 


Entrez les articles spécifiés pour le test du module 5.2.5, puis 
rappelez le nouveau module d'entrée pour placer un nouveau 
sous-poste du côté crédit, appelé TEST SOUS, avec une valeur 
de 200. Faites de même pour le côté débit. 


Entrez ce qui suit en mode direct : 
FOR I=0 TO 2 :PRINT A(0,1),A(1,1),A$(0,1),A$(1,1) :NEXT 


I[ENTER] 

Vous devez obtenir : 

0 0 *EST PRINCIPAL *EST PRINCIPAL 
200 200 S$TEST SOUS $TEST SOUS 

100 100 %TEST %TEST 


Affichez les valeurs de C(0) et de C(1), qui toutes deux doi- 
vent être égales à 3. 


Module 5.2.7 : Fichiers de données 


Comme les données du logiciel Comptable sont plutôt comple- 
xes, il vaut mieux entrer le module de fichier de données à ce 
stade, pour éviter de réentrer les données pendant le test. Après 
l'entrée du module, entrez et sauvegardez les données spéci- 
fiées pour le test du module précédent. 


MODULE 5.2.7 : LIGNES 19000-20160 


@l768 FEU KKKÆREREREREEEREREREEENNX 
19411 REM #Sauveñarde sur cassettex 

el2255 RENM KÉKEEEELELETEEEEEKRELEKAEAE 
19934 CLS:4$="":MMILE LOUERSE Q$ état 





Le] 

e 
1344 IMPUT "Hom du fichier à sauveQarde 

O,:";fis e 
19454 PRINT:PRIHT "Fichier à sauveQarder 

e “ris e 
19869 PRINT:INPUT "Est-ce correct Con" 

0:15 e 
19@74 WEHDC 
19984 DPENOUT fis e 
1949 FOR is TO 1 

e1°175 PRINT #3,ccii e 
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1311Q 
12120 
19150 
19149 
615150 


:4$ 
2aa7e 
CETTE 
2ARQ 
e 218 
20118 
2124 
ETES 
261 44 
OSgisa 
20164 
ae 


n REM HÉEKEEEXEEXEXEREEREREXX 
a FENM fLecture sur cassettex 
1 FREM HÉEEXERAAEEXÉENELREETERE 
4 CLS:9H="":MHILE LONERSE 9$ <> "0" 


Ca PRINT: INPUT "Est-ce correct Can" 


FOR jieû TO cii-1 

FRIHT #9.:a$i, iricrbia(i. ii 
HEXT à 

NEXT i 

CLOSECUT 

RETURN 






IHPUT "Hom du fichier à charger :" 


FEINT:FRIHT "Fichier à charger "if 


WEHC 

OPENIH Fi$ 

FOR i=à TO 1 

IHPUT #9, ci 

FO i=@ TQ c<ii-1 

INPUT #9,a$ci, jai, it 
HEAT à 

NEXT i 

CLOSEIH 

RETURH 


»®292DDDVDDDD9 





Module 5.2.8 : Modifications des 
articles 


Il s'agit d'un simple module avec quelques fonctions supplé- 
mentaires pour tenir compte du fait que certains articles ne 
sont pas isolés, mais font partie de groupes d'articles sous un 
poste principal commun. 





e162ag 
Ne 

16454 
dE 
e Lee? 


16479 


MODULE 5.2.8 : LIGNES 16000-16290 
REM 





KXKEMEREXEEEAREEEXELALEXERERE © 
XChanSements et suPPressionsx 

REM KÉEKRRERIEEERHRRREEREEREKEEX  @ 
FOR if TO ccd)-1 
A=A:UHILE d=û:d=1 


CR 


REM 


e 


La 
IF LEFT#(a$(cd.i.1)<2>"$" THEN PRI 


FRINT "“ChanQer ou supprimer :":PRIN 
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16254 IF LOUNERS r$i="o" THEN atcd,idzaic 
di+q:q$="" 
OE26à WEND 
16274 WEND 
816280 NEXT i 
16298 RETURN 


ONT MIDSCa$g cd, 12,22; e 
16960 IF LEFTSag$ cd,it,12="*" THEN hh$= 
eMiDSc a$ccd, 12,22: PRINT a 
16094 IF LEFT$Sa$cd.i.12="$S" THEN PRIN 
e' hh$:PRINT "  ":MID$S a$t cd. 12,25: e 
161O8 IF accd.iïés@ THEN PRINT TAECS2 551 

SIHC"RHEH. HR": a cd, ji 
91g118 PRINT:PRINT "Commandes disponibles ® 
: M:PRINT 
615124 FRINT "15 Article suivant" w 
16120 FRINT "2) Changer le montant" 
@1614% PRINT "35 Retour au menu" e 
16154 PRINT "45 Supprimer l’article" 
16168 PRINT:PRINT "Que voulez-voust" e 
GITE Sa" MHILE 9$="" 
e 16184 3$=IHFEYS e 
16198 LIENC 
16208 IF 9$="4" THEN GOSUB 17098: RETURH 
@ 16219 IF 4$="2" THEN RETURN 8 
16224 MHILE 9$="2" ANC LEFTS$C ag cd,i2,12 
O<>"x" e 
16254 PRINT:INPUT "Montant à 3jouter:",4 
© ,5240 PRINT:INPUT "Est-ce correct Con" 5 
e:°° | e 
e 
e 
ps 





Commentaires 


Lignes 16070-16090 : Si l’article lu dans le fichier est un 
simple article, il est affiché, bien que débarassé du caractère 
indicateur accolé au début du nom. S'il s’agit d’un poste prin- 
cipal, il est non seulement affiché, mais son nom est stocké 
dans HH$ afin qu’il puisse s'afficher au-dessus de tous les sous- 
postes qui suivent. 

Eignes 16220-16260 : Outre la suppression d'articles, vous 
pouvez modifier la valeur associée à un poste. Pour cela, il faut 
entrer un nombre positif ou négatif qui doit modifier la valeur 
d'un article; non pas la nouvelle valeur absolue de l'arti- 
cle. L'avantage est que la plupart des modifications implique- 
ront d’ajouter des montants aux articles existants lorsque des 
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dépenses ou des recettes supplémentaires sont faites sous des 
articles déjà existants. Ainsi, si 1000 F de plus doivent être 
dépensés pour la réparation de la voiture, pour laquelle il y a 
déjà un poste, il suffit d'explorer le fichier jusqu'à ce poste et 
d'entrer '1000". 


Test 


Exécutez le programme et lisez les données précédemment 
stockées sur cassette. Puis sélectionnez l'option 2 du menu et 
vérifiez que vous pouvez consulter trois articles, puis revenez 
au menu. Choisissez encore l'option 2 et cette fois-ci, essayez 
d'ajouter ou de soustraire des montants aux deux totaux précé- 
demment entrés. Consultez à nouveau les articles pour consta- 
ter que leurs valeurs ont bien été modifiées. 


Module 5.2.9 : Suppression d'articles 


Il nous reste à pouvoir supprimer des articles existants. Dans 
le cas présent, le module de suppression est plus complexe que 
les autres modules du même type. La raison en est l’existance 
de groupes formés avec des postes principaux. S'il n'y a pas de 
difficulté particulière pour supprimer un simple article ou un 
sous-poste, il n'en est pas de même-pour un poste principal. 
Bien entendu, il faut non seulement supprimer le poste princi- 
pal mais également tous les sous-postes qui lui sont associés. 
Sinon le compte présentera des sous-postes non associés à un 
poste principal, d'où un compte incohérent. 


MODULE 5.2.9 : LIGNES 17000-17140 


17008 REM XXXK#X#K#KEXKXE 

17414 REM *XSuPPressionx 

17924 REM #XXKXKXEKEXEEE 

17434 Pplazi:arzi 

179449 A=G:UHILE LEFTS agcd,P13,1)2="X" À 
ND d=à:d=1 

17959 UHILE LEFTSCa$é cd. 1l+or 2, 12="#" 
17964 9gr=ar+1 

17079 WEND 

17984 WHEND 

17499 FOR k=Pl TO cécd)-9r-1 

171AR accd,kod=accd,.k+ar) 

17119 a$cd,k)=a$Ccd,k+ar) 

17129 NEXT k 

17139 cccd)=ctcd)i-9ar 

17149 RETURN 
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Commentaires 


Ligne 17030 : La position où la suppression doit avoir lieu 
est reçue du module précédent grâce à la variable I. Elle est 
transférée dans PL pour les besoins du module en cours. La 
variable GR (GRoupe) indique combien d'articles sont à sup- 
primer. Elle reçoit initialement la valeur 1 et ne sera augmen- 
tée que si l’article à supprimer est un poste principal avec des 
sous- postes associés. 


Lignes 17040-17080 : Ces deux boucles imbriquées ne seront 
activées que si l’article à supprimer est un poste principal. 
La boucle interne analyse les entrées suivantes, comptant le 
nombre d'articles précédés d’un $, indiquant qu'il s’agit d'arti- 
cles subordonnés au poste principal. Le résultat de ce calcul se 
trouve dans GR. 


Lignes 17090-17120 : Une boucle classique de resserrement 
d'un tableau et de suppression d'un article. Toutefois, il y a ici 
une différence : au lieu de copier l’article X dans l’espace X-1 
et, par conséquent, de copier chaque élément une position plus 
bas, les articles sont déplacés de GR positions, ce qui supprime 
GR articles, soit le nombre d'articles dans le groupe correspon- 
dant à un poste principal. 


Test 


En suivant la procédure de test du module précédent, vous 
pourrez non seulement consulter les articles et les modi- 
fier, mais également les supprimer. Si vous supprimez l'arti- 
cle appelé TEST PRINCIPAL, vous constaterez que TEST SOUS 
disparaît également. 


Module 5.2.10 : Affichage des 
combptes 

Après tout ce travail de préparation, ce module permet d'affi- 
cher le compte sous sa forme définitive. Comme le module 
équivalent de Banquier, il paraît complexe, mais dès que vous 
aurez vu l'affichage, tout s'éclairera. 


MODULE 5.2.10 : LIGNES 18000-18310 





O1Sonn REM KEKEEEELÉEETELERELXEEEXXE 
18414 REM #Affichade des comPtes* 

e 159020 REM KXÉXXEXEEEEEEEEXEEELLEEEE 
1834 tt=f:ss=f 

e 1:24 ÉLS:PRINT "Afficher les comptes :": e 
FRIMT 
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18454 PRINT:INPUT "Envoyer comPtes à l'i 
mPrimante co-ni":p$:ch=@: IF LONERS PS =" e 
o" THEN ch=8g 


@12268 CLS e 
18976 PRINT #ch, TABX20-LENCcd$)/22);cdS:P 
@EINT e 

15988 FOR i=@ TO cécd)1 
12999 tt=tt+atcd, i) e 


13108 IF LEFTSCa$cd.i,13="#" THEN FRIN 

T #ch 

18118 IF LEFTS(a$écd id, 13="$" THEN PRIN ® 
T'hch," "5 


@15129 PRINT #ch.MIDSC asc cd, i 2,23 æ 
12139 deû:WHILE LEFTSCa$Ccd,i2,132<>"4" A 
eND d=2:d=1 e 


12149 PRINT #ch, TAB£ 15); 

15159 IF LEFT#(a$(cd.i).13="%" THEN PRIMN @ 
T #ch, TABC29 5; 

e12158 PRINT #ch. USING "####.##":a cd in à 
18179 IF LEFT#atcd,id.lr="$" THEN s2=s 
s+afcd.i 

O;2164 LHEND e 
12198 PRINT #ch 

016200 UHILE 5540 AND LEFTS asc cd.i+1.1 @ 
1< > L] Li 

615219 FRINT ch, TABC 1835" " e 
18229 PRINT äch:TAB(292: USING "####. #4"; 

02220 35=0 e 
18248 MENC 

O 15254 NEXT i e 

l 18268 PRINT #ch, TABC29 0; “ 

@;s27a PRINT 8CH, "TOTAL :"; THE ZS USING " @ 
CITT RE LS 

@1528% IF ch=8 THEN RETURN 
18290 PRINT:PRINT "FraPPer sur une touch 


e Pour continuer" a 
14390 UHILE INKEYS="":MUENC 
a15516 RETURN a 





Commentaires 


Ligne 18090 : La variable TT permet de stocker le total cumulé 
du compte parallèlement à l'affichage. 
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Lignes 18100-18120 : Ces lignes affichent le nom de l'article. 
Pour un poste principal, une ligne vierge est affichée d'abord 
pour le séparer de ce qui précède, tandis que pour un sous- 
poste, le nom est décalé de deux espaces. 


Lignes 18130-18180 : Ces lignes affichent les montants des 
simples articles et des sous-pôstes. Les sous-postes s’affiche- 
ront sur la 18ème position de la ligne et les simples articles 
sur la position 29. Si l'article traité est un sous-poste, le sous- 
total des articles du groupe en cours est stocké temporairement 
dans SS. 


Lignes 18190-18230 : Cette boucle n'est active que lors du 
traitement d'un groupe; en effet, si SS n'est pas égal à 0 et si 
l'article suivant ne fait pas partie du groupe, le groupe est com- 
plet. La boucle a pour effet d'afficher le total du groupe dans 
la colonne de nombres principale sur la position 29. 


Test 


Relisez les données précédemment stockées sur cassette et 
choisissez simplement l'option 3 du menu principal. Si ce test 
est satisfaisant, le programme est opérationnel. 


CONTENU DETAILLE 


Variations sur les Heures............ Page 6 


Heurclassique : une horloge classique en haute résolution - 
définition d’un cercle. Heurfantaisie : une autre façon d'indi- 
quer l'heure. Compteur : vous fournit 16 compteurs pouvant 
fonctionner simultanément en déclenchant une alarme et en 
affichant un message de rappel. Evénement : transforme votre 
CPC 464 en un chronomètre perfectionné. 


Des Dessins et des Nombres... Page 55 


Courbe : crée un graphique de grande qualité sous forme de 
courbe en haute résolution. Cercle : prend un petit nombre 
de données et les affiche sous la forme d'un cercle divisé-en 
segments multicolores. Histogramme 3D : vous permet de créer 
un histogramme en trois dimensions tout à fait remarquable. 


Son et Lumière........................... Page 83 


Caractères : permet de créer des jeux de caractères personnali- 
sés. Artiste : un outil pour créer des dessins haute résolution. 
Musique : permet d'écrire des mélodies en deux parties sous 
une forme simple, puis de les rejouer. 


Ça se combplique........................ Page 143 


Unifile : un puissant système de classement personnel capable 
de stocker et de relire immédiatement une grande variété 
d'informations - recherche binaire. Nnombre : crée un dic- 
tionnaire de noms et de nombres pour toutes sortes d'applica- 
tions. Vous pourrez créer des factures, gérer un stock, ou même 
compter les calories des menus quotidiens. Texte : un pro- 
gramme de traitement de texte simple. MultiQ : un générateur 
de test à choix multiples. 


Vos Finances............................. Page 215 


Banquier : permet d'enregistrer les mouvements d'argent de 
votre compte en banque. Comptable : tient une comptabilité 
simple sous forme classique. 
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Voici un ouvrage de programmes pour votre Amstrad, 
qui présente une triple possibilité d'utilisation : 


- comme manuel pour l'apprentissage, par la pratique, 

de techniques avancées de programmation en BASIC, 
grâce aux commentaires ligne à ligne qui accompagnent 
les programmes bien structurés ; 

- comme une collection de programmes, de qualité 
professionnelle, permettant de mettre à profit le BASIC 
puissant de l'Amstrad, et aux nombreuses applications 
pratiques : traitément de fichiers, finances et comptabilité, 
graphisme, enseignement assisté par ordinateur, jeux... 
Bien qu'écrits pour le CPC 464, les possesseurs de CPC 664 
n'auront aucune difficulté à adapter ces programmes pour 
leur machine ; 
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Sous-programmes réutilisables aisément dans un nombre 
illimité de programmes que vous désirez écrire. 
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